Revision as of 14:02, 4 March 2024 (view source) Langurmonkey (talk \| contribs) (→‎{{header\|langur}}) ← Older edit		Revision as of 17:20, 5 March 2024 (view source) Grammarware (talk \| contribs) (→‎{{header\|BabyCobol}}: fix bugs) Newer edit →
Line 1,106: <syntaxhighlight lang="cobol"> * NB: ANY does not exist in BabyCobol so the elegant * EVALUATE-based COBOL-style solution is impossible here. * Note the subtly unbalanced IF/ENDs yet valid ~~ENDs~~END at the end. IDENTIFICATION DIVISION. PROGRAM-ID. ~~FIZZ BUZZ~~FIZZBUZZ. DATA DIVISION. 01 INT PICTURE IS 9(3). Line 1,115: 01 TMP LIKE INT. PROCEDURE DIVISION. LOOP VARYING IINT TO 100 DIVIDE ~~INT~~3 INTO 3INT GIVING TMP REMAINDER REM IF REM = 0 THEN DISPLAY "Fizz" WITH NO ADVANCING ~~END~~DIVIDE 5 INTO INT GIVING TMP REMAINDER REM ~~DIVIDE INT INTO 5 GIVING TMP REMAINDER REM~~ IF REM = 0 THEN DISPLAY "Buzz" WITH NO ADVANCING ~~END~~DIVIDE 15 INTO INT GIVING TMP REMAINDER REM ~~DIVIDE INT INTO 15 GIVING TMP REMAINDER REM~~ IF REM = 0 THEN DISPLAY ""

FizzBuzz: Difference between revisions

FizzBuzz (view source)