Count the coins: Difference between revisions
Applesoft BASIC
(Applesoft BASIC) |
|||
Line 276:
<lang applescript>{242, 13398445413854501}</lang>
=={{header|Applesoft BASIC}}==
{{trans|Commodore BASIC}}
<lang gwbasic>C=0:M=100:F=25:T=10:S=5:Q=INT(M/F):FORI=0TOQ:D=INT((M-I*F)/T):FORJ=0TOD:N=INT((M-J*T)/S):FORK=0TON:P=M-K*S:FORL=0TOPSTEPS:C=C+(L+K*S+J*T+I*F=M):NEXTL,K,J,I:?C;</lang>
=={{header|Arturo}}==
<lang rebol>changes: function [amount coins][
| |||