Ви не можете вибрати більше 25 тем
Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.
|
- ( Forth testing harness
- "#" means "assert". We stop at first failure, indicating
- the failure through IO on port 1 )
-
- : fail SPC ." failed" LF 1 1 PC! BYE ;
-
- : # IF SPC ." pass" LF ELSE fail THEN ;
-
- : #eq 2DUP SWAP . SPC '=' EMIT SPC . '?' EMIT = # ;
|