раз в Develop пошла такая пьянка с lisp`ами и прочей функциональщиной..
УГАДАЙ ЯЗЫК
по коду
set number 1000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
set a [ range 1 $number ]
set r [ reverse $a ]
set rr [ reverse $r ]
puts [ join [ tail 5 $r ] \n ]
puts [ join [ tail 5 $rr ] \n ]
puts [ time {
reverse [ reverse [ range 1 $number ] ]
} 1000 ]
5
4
3
2
1
999999999999999999999999999999999999999999999999999999999999999999999999999999999999999996
999999999999999999999999999999999999999999999999999999999999999999999999999999999999999997
999999999999999999999999999999999999999999999999999999999999999999999999999999999999999998
999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999
1000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
5456.934 microseconds per iteration