frtm for Android APK

ဖော်ပြချက်

Frtm (FoRTh Modoki) သည် FORTH ပရိုဂရမ်းမင်းဘာသာစကားကို အတုယူသည့်ဆော့ဖ်ဝဲတစ်ခုဖြစ်သည်။ သို့ရာတွင် ၎င်းသည် တင်းကျပ်သော FORTH ကို ပြန်လည်ထုတ်လုပ်ရန် မရည်ရွယ်ပါ။ compiler မရှိသော်လည်း အသုံးပြုသူသတ်မှတ်ထားသော စကားလုံးတစ်ခုရှိ စကားလုံးများနှင့် ကိန်းသေများကို ၎င်းကို စာရင်းသွင်းသည့်အခါ အဓိပ္ပာယ်ပြန်ဆိုပါသည်။

FORTH နှင့် မတူသော ရှုထောင့်အချို့လည်း ရှိသည်- frtm တွင် return stack ကို ကိုင်တွယ်ရန် စကားလုံးများ မပါရှိသော်လည်း frtm သည် စကားလုံး၏ ထပ်တူကျသော အဓိပ္ပါယ်ဖွင့်ဆိုချက်ကို ခွင့်ပြုသည်။

Frtm သည် ဂဏန်းအစစ်အမှန်များကို တွက်ချက်ရာတွင်လည်း ပံ့ပိုးပေးပါသည်။ ၎င်းတွင် exponential၊ square root၊ trigonometric functions၊ hyperbolic functions၊ bitwise operations ကဲ့သို့သော သင်္ချာလုပ်ဆောင်ချက်များ ပါရှိသည်။ ထို့ကြောင့် frtm သည် သိပ္ပံနည်းကျဂဏန်းတွက်စက်၏ အစားထိုးဆော့ဖ်ဝဲလ်တစ်ခုဖြစ်နိုင်သည်။

စကားရပ်၏ စကားပြန်ကို Reverse Polish Notation (RPN) နှင့်အညီ ဆောင်ရွက်ပါမည်။ Frtm တွင် loop "do-while" နှင့် "for-loop" အတွက် conditional branch "if" ရှိသည်။ စကားလုံးကို ပေါင်းစပ်ခြင်းဖြင့် စကားလုံးအသစ်တစ်ခုကိုလည်း ပြုလုပ်နိုင်သည်။

Android OS တွင်၊ အဘိဓာန်၏ကနဦးအရွယ်အစားနှင့် stack ၏ဖွဲ့စည်းပုံ၊ အဘိဓာန်ရှိစကားလုံးကို "word book" သို့ထည့်သွင်းထားသည်။ “စကားလုံးစာအုပ်” အရေအတွက်ကို သုံးမျိုးအထိ ကန့်သတ်ထားသည်။

ဘာသာစကား၏အသေးစိတ်ဖော်ပြချက်အတွက်၊ ပံ့ပိုးကူညီမှုအတွက် ဂျပန်လို ဝဘ်စာမျက်နှာကို ဖတ်ရှုပါ။

frtm ကို လွတ်လပ်စွာ စမ်းသပ်လိုပါက အောက်ပါဝဘ်စာမျက်နှာတွင် frtm ၏ Java applet ဗားရှင်းကို စမ်းကြည့်ပါ။

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

*** စကားလုံးများ၏ ဥပမာများ ***

* ပျမ်းမျှဂဏန်းနှစ်လုံး

: ave + 2.0/;

* ပျမ်းမျှ N နံပါတ်များ

: nave swap over 1 for rot + loop swap 1.0 */;

2 4 6 8 10 5 ၊ cr

0 1 2 3 4 5 6 7 8 9 10 SP nave ။ cr

* N နံပါတ်များ၏ လူဦးရေကွဲလွဲမှု

: nvarp dup 1+ မိတ္တူ nave SP nrotr swap dup * over 1 for rot dup * + loop swap 1.0 */SP nrot dup * - ;

2 4 6 8 10 5 nvarp ။ cr

* N နံပါတ်များ၏ ဘက်မလိုက်သောကွဲလွဲမှု

: nvar dup 1+ မိတ္တူ nave SP nrotr swap dup * over 1 for rot dup * + loop SP nrot dup * 3 ndup * - swap 1- 1.0 */;

2 4 6 8 10 5 nvar . cr

* ဂဏန်း 2 လုံး၏ အကြီးဆုံး ဘုံပိုင်းခြားခြင်း။

: gcd သည် % dup 0 > drop နှင့် အမျှ လဲလှယ်ပါ ။

1001 819 gcd cr

* Factorial [fact(1)=1၊ fact(n)=n*fact(n-1)]

** ပြန်လှည့်ခြင်း။

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

အချက် ၁၀။ cr

** ထပ်ကာထပ်ကာ

: facti 1 swap 1+ 1 I အတွက် * loop ;

အချက် ၁၀။ cr

* Fibonacci sequence [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 ;

ဖိုက်ဘာ ၃၀။ cr

** ထပ်ကာထပ်ကာ

: fibi dup 0= အကယ်၍ အခြား 0 1 ပုပ် 1 အတွက် swap over + loop swap drop endif ;

ဖိုင်ဘာ ၃၀။ cr

* ဂရပ်ဖစ်

** စတုဂံပုံဖြည့်ပါ။

: boxes 16 0 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 loop ;

gm hls

** Recursive Drawing (Koch မျဉ်းကွေး)

: ကြိုတင် 5 ကော်ပီ drop ;

: genx 3 ndup 6 ndup - * အနှုတ် 100/swap 4 ndup 7 ndup - * 100/+ 5 ndup +

5 nrotr 4 ndrop ;

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

5 nrotr 4 ndrop ;

: gen 6 မိတ္တူ genx 7 nrotr geny ;

: 7 nrotr 7 nrotr ကြို ;

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

: line moveto lineto ;

:koch dup 0= အကယ်၍ drop line အခြား

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 ndrop

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

** escape sequence ကဲ့သို့ ReGIS ဂရပ်ဖစ် terminal ကို တိုက်ရိုက်အသုံးပြုခြင်း။

ဂရမ်

(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' ဟူသော စကားလုံးကို အသုံးပြုခြင်းဖြင့်၊ ဂရပ်ဖစ်၏ ဥပမာများအတွက် စကားလုံးအချို့ကို အဘိဓာန်တွင် မှတ်ပုံတင်ပါမည်။