Count the coins: Difference between revisions
Content added Content deleted
(Applesoft BASIC) |
|||
Line 276: | Line 276: | ||
<lang applescript>{242, 13398445413854501}</lang> |
<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}}== |
=={{header|Arturo}}== |
||
<lang rebol>changes: function [amount coins][ |
<lang rebol>changes: function [amount coins][ |