RosettaCodeData/Task/McNuggets-problem/FOCAL/mcnuggets-problem.focal

8 lines
147 B
Plaintext

01.10 F N=0,100;S T(N)=0
01.20 F A=0,6,100;F B=A,9,100;F C=B,20,100;S T(C)=-1
01.30 S N=101
01.40 S N=N-1
01.50 I (T(N))1.4
01.60 T %3,N,!
01.70 Q