diff options
| author | Naren Ratan <narenratan@gmail.com> | 2019-12-01 22:48:25 +0000 |
|---|---|---|
| committer | Naren Ratan <narenratan@gmail.com> | 2019-12-01 22:48:25 +0000 |
| commit | f5d5e45149efd64967eb3a080f84d4cae4df58a3 (patch) | |
| tree | 1ebe2da28a22537a4b60cfc5bbd5e7fb5c2a66aa | |
| parent | 72e142b32380cb1c59ea9846b4f5994487e88132 (diff) | |
| download | jonesforth_arm64_apl-f5d5e45149efd64967eb3a080f84d4cae4df58a3.tar.gz | |
Add (( )) for DO LOOP
| -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 / |