RosettaCodeData/Task/Count-the-coins/FOCAL/count-the-coins.focal
2023-12-16 21:33:55 -08:00

6 lines
161 B
Text

01.10 S C(1)=1;S C(2)=5;S C(3)=10;S C(4)=25
01.20 F N=1,100;S T(N)=0
01.30 S T(0)=1
01.40 F M=1,4;F N=C(M),100;S T(N)=T(N)+T(N-C(M))
01.50 T %3,T(100),!
01.60 Q