35 lines
1.7 KiB
Forth
35 lines
1.7 KiB
Forth
( ˆ§ <EFBFBD> à ®¢ :
|
||
‘⥪ ¤ ëå ª ª 㨢¥àá «ì®¥ á।á⢮ ¤«ï ¯¥à¥¤ ç¨ ¯ à ¬¥â஢ ¨ १ã«ìâ ⮢
|
||
¬¥¦¤ã ä®àâ-á«®¢ ¬¨ ¨¬¥¥â ¥®á¯®à¨¬ë¥ ¯à¥¨¬ãé¥á⢠. ‚¬¥á⥠á ⥬ ¢ãâà¨
|
||
®¯à¥¤¥«¥¨ï ® ¨á¯®«ì§ã¥âáï ¤«ï ¯à®¬¥¦ãâ®çëå ¢ëç¨á«¥¨© ¨ à §¬¥é¥¨ï § 票©,
|
||
ª®â®àë¥ ¢ ¨å ãç áâ¢ãîâ. <EFBFBD>â® ¢ë§ë¢ ¥â ®¯à¥¤¥«¥ë¥ âà㤮á⨠¤«ï ¤®áâ㯠ª
|
||
â ª®¬ã «®ª «ì®¬ã § 票î, ¯®áª®«ìªã ¥£® ¯®«®¦¥¨¥ ®â®á¨â¥«ì® ¢¥àè¨ë á⥪
|
||
¯®áâ®ï® ¬¥ï¥âáï.
|
||
„«ï ã¯à®é¥¨ï à ¡®âë ¦¥« â¥«ì® § ªà¥¯¨âì § «®ª «ìë¬ ®¡ê¥ªâ ¬¨ ¢ãâà¨
|
||
®¯à¥¤¥«¥¨ï ¥ª®â®àë¥ ¯®áâ®ïë¥ ¨¬¥ , ç¥à¥§ ª®â®àë¥ ¨ ®áãé¥á⢫ïâì ¤®áâ㯠ª
|
||
¨¬.
|
||
ˆ¬¥î騩áï ¢ ï§ëª¥ ¬¥å ¨§¬ ®¯¨á ¨ï ¯¥à¥¬¥ëå ¢ ¤ ®¬ á«ãç ¥ ¥ ¯®¤å®¤¨â,
|
||
¯®áª®«ìªã ᮧ¤ ¥â £«®¡ «ìë¥ ¨¬¥ , ⮣¤ ª ª âॡã¥âáï ¨¬¥®¢ âì «®ª «ìë¥
|
||
®¡ê¥ªâë, ãç¨âë¢ ï ¯à¨ í⮬ ¢®§¬®¦®áâì ४ãàᨢëå ¢ë§®¢®¢. <EFBFBD>®áâ ¢«¥ãî § ¤ çã
|
||
à¥è ¥â ¢ª«î票¥ ¢ à ¡®âã ¤®¯®«¨â¥«ì®£® á⥪ , ®â«¨ç®£® ®â á⥪ ¤ ëå.
|
||
‹®ª «ìë¥ § 票ï à §¬¥é îâáï ¢ í⮬ á⥪¥ ¯à¨ ¢å®¤¥ ¢ ®¯à¥¤¥«¥¨¥ ¨ 㡨à îâáï
|
||
¨§ ¥£® ¯à¨ ¢ë室¥.
|
||
<EFBFBD> ¢á¥ ¢à¥¬ï ¨á¯®«¥¨ï ®¯à¥¤¥«¥¨ï ¨å ¯®«®¦¥¨¥ ®â®á¨â¥«ì® ¢¥àè¨ë á⥪
|
||
®áâ ¥âáï ¯®áâ®ïë¬, íâ® ¯®§¢®«ï¥â ®à£ ¨§®¢ âì ®ç¥ì ¯à®á⮩ ¤®áâ㯠ª â ª¨¬
|
||
§ 票ï¬.
|
||
<EFBFBD>à®á⥩è ï ¤áâனª ¤ ï§ëª®¬ ”®àâ, ª®â®à ï ¯®§¢®«ï¥â à ¡®â âì á «®ª «ì묨
|
||
¯¥à¥¬¥ë¬¨, ¢ë£«ï¤¨â â ª:)
|
||
|
||
|
||
100 ALLOT HERE CONSTANT LP0 ( <20>€—€‹Ž ‹ŽŠ.‘’…Š€)
|
||
VARIABLE LP ( ’…Š“™€Ÿ ‚…<E2809A>˜ˆ<CB9C>€ ‹ŽŠ€‹œ<E280B9>ŽƒŽ ‘’…Š€)
|
||
: INITLP ( ->) LP0 LP ! ; INITLP
|
||
: LOC ( N:‘—…’—ˆŠ->) 1+ CELLS LP @ OVER - DUP LP ! ! ;
|
||
: UNLOC ( ->) LP @ @ LP +! ;
|
||
: @@ ( N:‘Œ…™->) CREATE , DOES> ( PFA->A) @ CELLS LP @ + @ ;
|
||
: !! ( N:‘Œ…™->) CREATE , DOES> ( A,PFA->) @ CELLS LP @ + ! ;
|
||
|
||
1 @@ @1 2 @@ @2 3 @@ @3 4 @@ @4 5 @@ @5 ( ˆ ’.„.)
|
||
|
||
1 !! !1 2 !! !2 3 !! !3 4 !! !4 5 !! !5 ( ˆ ’.„.)
|