( § à ®¢ :
⥪ ¤ ëå ª ª 㨢¥àá «ì®¥ á।á⢮ ¤«ï ¯¥à¥¤ ç¨ ¯ à ¬¥â஢ ¨ १ã«ìâ ⮢
¬¥¦¤ã ä®àâ-á«®¢ ¬¨ ¨¬¥¥â ¥®á¯®à¨¬ë¥ ¯à¥¨¬ãé¥á⢠. ¬¥á⥠á ⥬ ¢ãâà¨
®¯à¥¤¥«¥¨ï ® ¨á¯®«ì§ã¥âáï ¤«ï ¯à®¬¥¦ãâ®çëå ¢ëç¨á«¥¨© ¨ à §¬¥é¥¨ï § 票©,
ª®â®àë¥ ¢ ¨å ãç áâ¢ãîâ. â® ¢ë§ë¢ ¥â ®¯à¥¤¥«¥ë¥ âà㤮á⨠¤«ï ¤®áâ㯠ª
â ª®¬ã «®ª «ì®¬ã § 票î, ¯®áª®«ìªã ¥£® ¯®«®¦¥¨¥ ®â®á¨â¥«ì® ¢¥àè¨ë á⥪
¯®áâ®ï® ¬¥ï¥âáï.
«ï ã¯à®é¥¨ï à ¡®âë ¦¥« â¥«ì® § ªà¥¯¨âì § «®ª «ìë¬ ®¡ê¥ªâ ¬¨ ¢ãâà¨
®¯à¥¤¥«¥¨ï ¥ª®â®àë¥ ¯®áâ®ïë¥ ¨¬¥ , ç¥à¥§ ª®â®àë¥ ¨ ®áãé¥á⢫ïâì ¤®áâ㯠ª
¨¬.
¬¥î騩áï ¢ ï§ëª¥ ¬¥å ¨§¬ ®¯¨á ¨ï ¯¥à¥¬¥ëå ¢ ¤ ®¬ á«ãç ¥ ¥ ¯®¤å®¤¨â,
¯®áª®«ìªã ᮧ¤ ¥â £«®¡ «ìë¥ ¨¬¥ , ⮣¤ ª ª âॡã¥âáï ¨¬¥®¢ âì «®ª «ìë¥
®¡ê¥ªâë, ãç¨âë¢ ï ¯à¨ í⮬ ¢®§¬®¦®áâì ४ãàᨢëå ¢ë§®¢®¢. ®áâ ¢«¥ãî § ¤ çã
à¥è ¥â ¢ª«î票¥ ¢ à ¡®âã ¤®¯®«¨â¥«ì®£® á⥪ , ®â«¨ç®£® ®â á⥪ ¤ ëå.
®ª «ìë¥ § 票ï à §¬¥é îâáï ¢ í⮬ á⥪¥ ¯à¨ ¢å®¤¥ ¢ ®¯à¥¤¥«¥¨¥ ¨ 㡨à îâáï
¨§ ¥£® ¯à¨ ¢ë室¥.
¢á¥ ¢à¥¬ï ¨á¯®«¥¨ï ®¯à¥¤¥«¥¨ï ¨å ¯®«®¦¥¨¥ ®â®á¨â¥«ì® ¢¥àè¨ë á⥪
®áâ ¥âáï ¯®áâ®ïë¬, íâ® ¯®§¢®«ï¥â ®à£ ¨§®¢ âì ®ç¥ì ¯à®á⮩ ¤®áâ㯠ª â ª¨¬
§ 票ï¬.
à®á⥩è ï ¤áâனª ¤ ï§ëª®¬ ®àâ, ª®â®à ï ¯®§¢®«ï¥â à ¡®â âì á «®ª «ì묨
¯¥à¥¬¥ë¬¨, ¢ë£«ï¤¨â â ª:)
100 ALLOT HERE CONSTANT LP0 ( .
)
VARIABLE LP (
)
: 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 ( ..)