frtm for Android APK

Apraksts

Frtm (FoRTh Modoki) ir programmatūra, kas simulē programmēšanas valodu FORTH. Tomēr tas nav paredzēts, lai reproducētu stingro FORTH. Nav kompilatora, bet vārdi un konstantes lietotāja definētajā vārdā tiek interpretētas, kad tas ir reģistrēts.

Atšķirībā no FORTH ir arī daži aspekti: frtm nav vārdu, lai manipulētu ar atgriešanas steku, savukārt frtm pieļauj vārda rekursīvu definīciju.

Frtm atbalsta arī reālo skaitļu aprēķināšanu. Tam ir matemātiskas funkcijas, piemēram, eksponenciālās, kvadrātsaknes, trigonometriskās funkcijas, hiperboliskās funkcijas, bitu darbības. Tātad frtm var būt alternatīva zinātniskā kalkulatora programmatūra.

Izteiciena interpretācija tiks veikta saskaņā ar apgriezto poļu notāciju (RPN). Frtm ir nosacīta filiāle "if", struktūra cilpai "do-while" un "for-loop". Varat arī izveidot jaunu vārdu, apvienojot vārdu.

Operētājsistēmā Android OS ir pievienota vārdnīcas un kaudzes sākotnējā izmēra konfigurācija, iespēja saglabāt vārdu vārdnīcā "vārdu grāmatā". "Vārdu grāmatu" skaits ir ierobežots līdz trim.

Lai iegūtu sīkāku informāciju par valodu, lūdzu, skatiet tīmekļa lapu japāņu valodā, lai saņemtu atbalstu.

Ja vēlaties brīvi pārbaudīt frtm, lūdzu, izmēģiniet frtm Java sīklietotnes versiju šajā tīmekļa lapā:

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

*** vārdu PIEMĒRI ***

* Divu skaitļu vidējais rādītājs

: ave + 2,0/;

* N skaitļu vidējais rādītājs

: naves maiņa virs 1 pret puvi + cilpas maiņa 1,0 */;

2 4 6 8 10 5 nave . kr

0 1 2 3 4 5 6 7 8 9 10 SP nave . kr

* N skaitļu populācijas dispersija

: nvarp dup 1+ copy nave SP nrotr swap dup * over 1 for rot dup * + loop swap 1.0 */SP nrot dup * - ;

2 4 6 8 10 5 nvarp . kr

* Neobjektīva N skaitļu dispersija

: nvar dup 1+ copy nave SP nrotr swap dup * over 1 for rot dup * + cilpa SP nrot dup * 3 ndup * - swap 1- 1.0 */;

2 4 6 8 10 5 nvar . kr

* Lielākais 2 skaitļu kopīgais dalītājs

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

1001 819 gcd. kr

* Faktoriāls [fakts(1)=1, fakts(n)=n*fakts(n-1)]

** Rekursija

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

10 faktors. kr

** Iterācija

: facti 1 nomainiet 1+ 1 pret I * cilpu ;

10 fakti. kr

* Fibonači secība [fib(0)=0, fib(1)=1, fib(n)=fib(n-1) + fib(n-2)]

** Rekursija

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

30 fib. kr

** Iterācija

: fibi dup 0= ja else 0 1 rot 1 pārmaiņai + cilpa swap drop endif ;

30 fibi. kr

* Grafika

** Aizpildiet taisnstūri

: kastes 16 0 I setcol 10 20 I * + dup 100 100 rectf cilpa ;

gm kastes

: hls 16 0 I 45 * 2/50 100 setHLS 10 20 I * + dup 100 100 rectf cilpa ;

gm hls

** Rekursīvais zīmējums (Koch līkne)

: pirms 5 kopijas nomešanas ;

: genx 3 ndup 6 ndup - * mīnus 100/mijmaiņas 4 ndup 7 ndup - * 100/+ 5 ndup +

5 nrotr 4 ndrop ;

: geny swap 3 ndup 6 ndup - * 100/mijmaiņas 4 ndup 7 ndup - * 100/+ 4 ndup +

5 nrotr 4 ndrop ;

: gen 6 kopija genx 7 nrotr geny ;

: paturēt 7 nrotr 7 nrotr pre ;

: post 9 nrot 9 nrot 4 nrot 4 nrot 5 ndup 1- ;

: line moveto lineto ;

: koch dup 0= if drop line else

pirms 0 0 gen paturēt 33 0 gen post koch

pirms 33 0 gen turēt 50 -28 gen post koch

pirms 50 -28 gen turēt 66 0 gen post koch

pirms 66 0 gen paturēt 100 0 gen post koch

5 pilieni

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

** Tieša ReGIS grafikas termināļa izmantošana, piemēram, evakuācijas secība

gm

(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]"Sveika pasaule") .

// Izmantojot vārdu 'grdemo', daži vārdi grafikas piemēriem tiks reģistrēti vārdnīcā.