fizzbuzz.focal
#360
- 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