0 REM << CD22-1 >>
1 REM
2 REM VARIOUS READERS' SOLUTIONS TO
3 REM PROBLEM #18-1 : CYCLING FUNCTION
4 REM
10 DEF FNC(D)=D*SGN((99-X)/(X-1))
11 DEF FNC(D)=INT(X/100)*-105+5
12 DEF FNC(D)=D+10*(X=100)-10*(X=0)
13 DEF FNC(D)=D+10*(X>95)-10*(X<5)
14 DEF FNC(D)=D+(2*D*(X=0 OR X=100))
15 DEF FNC(D)=5+10*(X>95 OR D<5)-10*(X<5)
16 DEF FNC(D)=D+(2*D*((X<=0)OR(X>=100)))
17 DEF FNC(D)=-5*(D=5)+5*(D=-5)+10*(X=100)-10*(X=0)
18 DEF FNC(D)=D*((((X=100)+(X=0))*2)+1)
20 D=5:X=0
30 S=X/5:PRINTSPC(ABS(S))X:X=X+D:D=FNC(D):GOTO30