diff options
| -rw-r--r-- | jonesforth.f | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/jonesforth.f b/jonesforth.f index 51d63e7..44db111 100644 --- a/jonesforth.f +++ b/jonesforth.f @@ -36,6 +36,9 @@ : ∥) I ' BNZ , H - , ; / ( A ∥) does A until false / : 1∥) I ' BR , H - , ; / ( A 1∥) does A indefinitely / +: (( I ' n! , [COMP] ( ; / n (( A )) does A n times / +: )) I ' n- , ' n , [COMP] ∥) ; + : ∇ I S { [COMP] ; | : } ; / ∇ starts and ends definitions / ∇ . ↑ 0≥ { U. | NEG U. '-' EMIT } ∇ / n→ Print signed number / |