История изменений
Исправление Xenius, (текущая версия) :
Я ещё сравнил с Tcl:
proc sum {} {
for {set i 0; set s 0} {$i<=1000000} {incr i} {incr s $i}
return $s
}
puts [sum]
В обоих случаях при втором и следующих запусках результат был примерно 0.1 секунда, как у perl5, так и у Tcl.
for {set i 0; set s 0} {$i<=1000000} {incr i} {incr s $i}
puts $s
А вот в таком варианте результат был около 1 секунды, поскольку Tcl задействует JIT когда встречает определение процедуры.
На первом примере результат Tcl 8.6 и старой 8.5 был примерно одинаковым, на втором примере Tcl 8.6 оказался немного медленней чем 8.5, 1.28 секунд против 0.96 секунд.
Есть ли какие-то причины изучать Perl, если я уже знаю Tcl? Позволяет ли он что-то делать, чего в Tcl нельзя и вообще есть ли какие-либо преимущества?
Исходная версия Xenius, :
Я ещё сравнил с Tcl:
proc sum {} {
for {set i 0; set s 0} {$i<=1000000} {incr i} {incr s $i}
return $s
}
puts [sum]
В обоих случаях при втором и следующих запусках результат был примерно 0.1 секунда, как у perl5, так и у Tcl.
for {set i 0; set s 0} {$i<=1000000} {incr i} {incr s $i}
puts $s
А вот в таком варианте результат был около 1 секунды, поскольку Tcl задействует JIT когда встречает определение процедуры.
На первом примере результат Tcl 8.6 и старой 8.5 был примерно одинаковым, на втором примере Tcl 8.6 оказался немного медленней чем 8.5, 1.28 секунд против 0.96 секунд.