Toka 1.2
Версия реализации Toka языка программирования ForthПервый стабильный релиз.
Ссылки:
Примеры:
Факториал - Forth (23):
Для факториалов 13-16 из-за арифметического переполнения возвращается неверное значение. Также не получилось убрать пробел между аргументом и знаком “!”. В результате вывод программы имеет следующий вид:
0 ! = 0
1 ! = 1
2 ! = 2
3 ! = 6
4 ! = 24
5 ! = 120
6 ! = 720
7 ! = 5040
8 ! = 40320
9 ! = 362880
10 ! = 3628800
11 ! = 39916800
12 ! = 479001600
13 ! = 1932053504
14 ! = 1278945280
15 ! = 2004310016
16 ! = 2004189184
#! /usr/bin/toka
[ dup 1 > [ dup 1 - recurse * ] ifTrue ] is factorial
0 17 [ i . i ." ! = " i factorial . cr ] countedLoop
bye
Комментарии
]]>blog comments powered by Disqus
]]>