Category:BlooP: Difference between revisions
Content added Content deleted
(→Example Code: add a few examples.) |
m (→Example Code: replace ⇐ with <= and × with *) |
||
| Line 24: | Line 24: | ||
DEFINE PROCEDURE FACTORIAL [N]: |
DEFINE PROCEDURE FACTORIAL [N]: |
||
BLOCK 0: BEGIN |
BLOCK 0: BEGIN |
||
OUTPUT |
OUTPUT <= 1; |
||
CELL(0) |
CELL(0) <= 1; |
||
LOOP AT MOST N TIMES: |
LOOP AT MOST N TIMES: |
||
BLOCK 1: BEGIN |
BLOCK 1: BEGIN |
||
OUTPUT |
OUTPUT <= OUTPUT * CELL(0); |
||
CELL(0) |
CELL(0) <= CELL(0) + 1; |
||
BLOCK 1: END; |
BLOCK 1: END; |
||
BLOCK 0: END. |
BLOCK 0: END. |
||
| Line 39: | Line 39: | ||
DEFINE PROCEDURE MINUS [M,N]: |
DEFINE PROCEDURE MINUS [M,N]: |
||
BLOCK 0: BEGIN |
BLOCK 0: BEGIN |
||
OUTPUT |
OUTPUT <= 0; |
||
IF M < N, THEN: |
IF M < N, THEN: |
||
QUIT BLOCK 0; |
QUIT BLOCK 0; |
||
| Line 46: | Line 46: | ||
IF OUTPUT + N = M, THEN: |
IF OUTPUT + N = M, THEN: |
||
ABORT LOOP 1; |
ABORT LOOP 1; |
||
OUTPUT |
OUTPUT <= OUTPUT + 1; |
||
BLOCK 1: END; |
BLOCK 1: END; |
||
BLOCK 0: END. |
BLOCK 0: END. |
||