git.gag.com Git - debian/pforth/blob - bloop.fth

   1 \r
   2 \r
   3 : BLOOP  ( n -- n' )\r
   4         0 swap 0\r
   5         DO\r
   6                 i +\r
   7                 i 1 and\r
   8                 IF\r
   9                         dup dup 2 +\r
  10                         swap - drop\r
  11                 THEN\r
  12         LOOP\r
  13 ;\r
  14 \r
  15 \r
  16 \ ."    START" cr\r
  17 \ 8000000 bloop .\r
  18 \ ." END" cr\r
  19 \r
  20 \r
  21 : uselocs  { aa bb -- }\r
  22         aa bb +\r
  23         aa bb -\r
  24         - drop\r
  25 ;\r
  26 \r
  27 : BLOCS  (      N -- )\r
  28         0 DO i 77 uselocs LOOP\r
  29 ;\r
  30 \r
  31 \r
  32 ."      START" cr\r
  33 2000000 blocs\r
  34 ." END" cr\r