fizzbuzz.focal

#360
Raw
Author
winny
Created
April 28, 2021, 2:32 a.m.
Expires
Never
Size
341 bytes
Hits
340
Syntax
None
Private
No
C-FOCAL,1969

01.10 ASK "TOP", K
01.20 FOR I=1,K; DO 02
01.99 QUIT

02.10 SET J=0
02.20 SET A=I/3
02.21 IF (A-FITR(A)) 2.30, 2.22, 2.30
02.22 TYPE "FIZZ"
02.23 SET J=J-1
02.30 SET A=I/5
02.31 IF (A-FITR(A)) 2.40, 2.32, 2.40
02.32 TYPE "BUZZ"
02.33 SET J=J-1
02.40 IF (J) 2.51, 2.50, 2.50
02.50 TYPE I
02.51 TYPE !
02.52 RETURN