frtm for Android APK

Апісанне

Frtm (FoRTh Modoki) - гэта праграмнае забеспячэнне, якое імітуе мову праграмавання FORTH. Аднак ён не прызначаны для прайгравання строгага FORTH. Кампілятара няма, але словы і канстанты ў слове, вызначаным карыстальнікам, інтэрпрэтуюцца пры яго рэгістрацыі.

Ёсць таксама некаторыя аспекты, адрозныя ад FORTH: frtm не мае слоў для маніпулявання стэкам вяртання, у той час як frtm дазваляе рэкурсіўнае вызначэнне слова.

Frtm таксама падтрымлівае разлік рэальных лікаў. Ён мае матэматычныя функцыі, такія як экспанента, квадратны корань, трыганаметрычныя функцыі, гіпербалічныя функцыі, пабітавыя аперацыі. Такім чынам, frtm можа быць альтэрнатыўным праграмным забеспячэннем навуковага калькулятара.

Інтэрпрэтацыя выразу будзе весціся ў адпаведнасці са зваротнай польскай натацыяй (RPN). Frtm мае ўмоўнае разгалінаванне "if", структуру для цыкла "do-while" і "for-loop". Вы таксама можаце стварыць новае слова, аб'яднаўшы слова.

У АС Android дададзены канфігурацыя пачатковага памеру слоўніка і стэка, магчымасць захавання слова ў слоўніку ў «слоўнік». Колькасць «слоўніка» абмежавана да трох.

Каб атрымаць больш падрабязную інфармацыю аб мове, звярніцеся да вэб-старонкі на японскай мове.

Калі вы жадаеце бясплатна праверыць frtm, паспрабуйце версію frtm для Java-аплета на наступнай вэб-старонцы:

http://www.rbt.his.u-fukui.ac.jp/~naniwa/comp/frtma.html

*** ПРЫКЛАДЫ слоў ***

* Сярэдняе значэнне двух лікаў

: ave + 2,0/;

* Сярэдняе з N лікаў

: замена ступіцай 1 на rot + замена цыкла 1.0 */;

2 4 6 8 10 5 неф . кр

0 1 2 3 4 5 6 7 8 9 10 СП нав. кр

* Дысперсія сукупнасці N лікаў

: nvarp dup 1+ копія nave SP nrotr swap dup * over 1 для rot dup * + loop swap 1.0 */SP nrot dup * - ;

2 4 6 8 10 5 нварп . кр

* Непрадузятая дысперсія N лікаў

: nvar dup 1+ копія nave SP nrotr swap dup * над 1 для rot dup * + цыкл SP nrot dup * 3 ndup * - swap 1- 1.0 */;

2 4 6 8 10 5 нвар. кр

* Найбольшы агульны дзельнік 2 лікаў

: gcd do swap over % dup 0 > while drop ;

1001 819 гкд. кр

* Фактарыял [факт(1)=1, факт(n)=n*факт(n-1)]

** Рэкурсія

: factr dup 1=if else dup 1- factr * endif ;

10 факт. кр

** Ітэрацыя

: facti 1 месцамі 1+ 1 для I * пятлі;

10 фактаў. кр

* Паслядоўнасць Фібаначы [fib(0)=0, fib(1)=1, fib(n)=fib(n-1) + fib(n-2)]

** Рэкурсія

: fib dup 0= if else dup 1=if else dup 1- fib swap 2 - fib + endif endif ;

30 фіб. кр

** Ітэрацыя

: fibi dup 0= if else 0 1 rot 1 for swap over + loop swap drop endif ;

30 фібі. кр

* Графіка

** Запоўніце прамавугольнік

: boxes 16 0 for I setcol 10 20 I * + dup 100 100 rectf loop ;

gm скрынкі

: hls 16 0 для I 45 * 2/50 100 setHLS 10 20 I * + dup 100 100 rectf цыкл ;

gm hls

** Рэкурсіўнае маляванне (крывая Коха)

: папярэдне 5 капіявання;

: genx 3 ndup 6 ndup - * мінус 100/памяняць месцамі 4 ndup 7 ndup - * 100/+ 5 ndup +

5 nrotr 4 ndrop ;

: geny памяняць месцамі 3 ndup 6 ndup - * 100/памяняць месцамі 4 ndup 7 ndup - * 100/+ 4 ndup +

5 nrotr 4 ndrop ;

: gen 6 копія genx 7 nrotr geny ;

: трымаць 7 нротр 7 нротр прэ ;

: пост 9 nrot 9 nrot 4 nrot 4 nrot 5 ndup 1- ;

: line moveto lineto ;

: koch dup 0= калі выпусціце радок else

pre 0 0 gen keep 33 0 gen post koch

pre 33 0 gen keep 50 -28 gen post koch

pre 50 -28 gen keep 66 0 gen post koch

pre 66 0 gen keep 100 0 gen post koch

5 кропля

endif ;

: kochs 10 setcol 89 440 551 440 4 koch

11 setcol 551 440 320 40 4 koch

12 setcol 320 40 89 440 4 koch ;

gm kochs

** Прамое выкарыстанне графічнага тэрмінала ReGIS, як паслядоўнасць выхаду

гм

(W(I15)P[50,50]C(S)[][+40,+40][+40,-40][+40,+40][+40,-40][+40,+ 40][+40,-40][](E)) .

(W(I12)P[50,150]F(C(B)[200,+200][+200,-150](E))) .

(W(I11)P[70,170]T(S16)[16,12]'Hello World') .

// Пры выкарыстанні слова «grdemo» некаторыя словы для прыкладаў графікі будуць зарэгістраваны ў слоўніку.