Mirror of CollapseOS
25'ten fazla konu seçemezsiniz Konular bir harf veya rakamla başlamalı, kısa çizgiler ('-') içerebilir ve en fazla 35 karakter uzunluğunda olabilir.

17 satır
409B

  1. : RLATOM ( a o ol -- a+n )
  2. ROT ( o ol a )
  3. DUP @ ( o ol a n )
  4. DUP 0x24 = IF
  5. DROP 2+ ( o ol a+2 )
  6. ROT ROT 2DROP ( a ) EXIT
  7. THEN
  8. ROT ( o a n ol )
  9. < IF ( under limit, do nothing )
  10. NIP ( a )
  11. ELSE ( o a )
  12. TUCK @ ( a o n )
  13. -^ ( a n-o )
  14. OVER ! ( a )
  15. THEN
  16. ASKIP ;