Править | Обсудить | История

JTcl 2.1.0

Версия реализации JTcl языка программирования Tcl

Версия JTcl, выпущенная 19 декабря 2011 года.

Изменения по сравнению с JTcl 2.0.0:

Добавлена JTcllib — библиотека модулей, использующих Java-пакеты. Первый (и пока что единственный) модуль — hyde.
info command ::foo возвращал слишком много разделителей в начале строки.
При открытии несуществующего файла в режиме “a” или “a+” возникало исключение.
Обработка файловых событий на открытом сокете вызывала чрезмерное использование CPU.

Ссылки:

Скачать JTcl 2.1.0

Примеры:

Hello, World! - Tcl (248):

puts "Hello, World!"

Используется итеративный метод вычисления факториала. В Tcl 8.4 значения факториалов, начиная с 13!, вычисляются неправильно из-за переполнения. В более поздних версиях и других реализациях все значения правильны.

set fact 1
for {set i 0} {$i <= 16} {incr i} {
    puts "$i! = $fact"
    set fact [expr {$fact * ($i + 1)}]
}

Квадратное уравнение - Tcl (252):

set A [gets stdin]
if {$A==0} { 
    puts "Not a quadratic equation."; 
    return 
}
set B [gets stdin]
set C [gets stdin]
set D [expr {$B*$B-4*$A*$C}]
set r [expr {-0.5*$B/$A}]
set i [expr {0.5*sqrt(abs($D))/$A}]
if {$D==0} {
    puts "x = $r"
} elseif {$D>0} {
    puts "x1 = [expr {$r+$i}]"
    puts "x2 = [expr {$r-$i}]"
} else {
    puts "x1 = ($r, $i)"
    puts "x2 = ($r, [expr {-$i}])"
}

CamelCase - Tcl (320):

Строка обрабатывается посимвольно. Для проверки того, что символ является буквой, используется регулярное выражение.

set S [gets stdin]
set S [string tolower $S]
set L [string length $S]
set lastSpace 1
set cc ""
for {set i 0} {$i < $L} {incr i} {
    set letter [string index $S $i]
    if { [string match {[a-z]} $letter] } {
        if { $lastSpace == 1 } { set letter [string toupper $letter] }
        append cc $letter
        set lastSpace 0
    } else {
        set lastSpace 1
    }
}
puts $cc

Числа Фибоначчи - Tcl (425):

Используется итеративное определение чисел Фибоначчи.

set fib1 0
set fib2 1
set s ""
for {set i 0} {$i < 16} {incr i} {
    set fib3 [expr {$fib1 + $fib2}]
    set fib1 $fib2
    set fib2 $fib3
    append s "$fib1, "
}
puts "$s..."

Числа Фибоначчи - Tcl (426):

Для вычисления чисел используется хвостовая рекурсия. Команда eval позволяет вычислить результат вызова функции fib с заданными аргументами без объявления fib в определенном пространстве имен.

proc fib {f1 f2 n} {
    if {$n==0} {
        return $f1
    } else {
        return [eval fib $f2 [expr {$f1 + $f2}] [expr {$n - 1}]]
    }
}

set s ""
for {set i 0} {$i < 16} {incr i} {
    append s [eval fib 1 1 $i] ", "
}
puts "$s..."