Count the coins: Difference between revisions

if N='' | N="," then N=100 100 /*Not specified? Then Use $1 (≡100¢).*/

if $='' | $="," then $= 1 5 10 25 /*Use penny/nickel/dime/quarter default*/

if left(N, 1)=='$' then N= 100 * substr(N, 2) /*the amountcount was specified in dollars. */

coins= words($) /*the number of coins specified. */

NN= N; do j=1 for coins /*create a fast way of accessing specie*/

_= word($, j) /*define an array element for the coin.*/

if _=='1/2' then _=.5 /*an alternate spelling of a half-cent.*/

if _=='1/4' then _=.25 /* " " " " " quarter-¢.*/

$.j=_ _ /*assign the value to a particular coin*/

end /*j*/

_= n//100; cnt=' cents' /* [↓] is the amount in whole dollars?*/

if _=0 then do; NN= '$' || (NN%100); cnt=; end /*show the amount in dollars, not cents*/

say 'with an amount of ' commascomma(NN)cnt", there are " commas comma( MKchg(N, coins) )

commascomma: procedure; parse arg _; n= _'.9'; #= 123456789; b= verify(n, #, "M")

e= verify(n, #'0', , verify(n, #"0.", 'M')) - 4

do j=e to b by -3; _= insert(',', _, j); end /*j*/; return _

MKchg: procedure expose $.; parse arg a,k /*this function is invoked recursively.*/

if a==0 then return 1 /*unroll for a special case of zero. */

if k==1 then return 1 /* " " " " " " unity. */

if k==2 then f= 1 /*handle this special case of two. */

else f= MKchg(a, k-1) /*count, and then recurse the amount. */

if a==$.k then return f+1 /*handle this special case of A=a coin.*/

if a <$.k then return f /* " " " " " A<a coin.*/

return f+MKchg(a-$.k,k) /*use diminished amount ($) for change.*/</lang>

'''{{out|output''' |text=&nbsp; when using the default input:}}

'''{{out|output''' |text=&nbsp; when using the following input: &nbsp; &nbsp; <tt> $1 &nbsp; 1/4 &nbsp; 1/2 &nbsp; 1 &nbsp; 2 &nbsp; 3 &nbsp; 5 &nbsp; 10 &nbsp; 20 &nbsp; 25 &nbsp; 50 &nbsp; 100 </tt>}}

if N='' | N="," then N=100 100 /*Not specified? Then Use $1 (≡100¢).*/

if $='' | $="," then $= 1 5 10 25 /*Use penny/nickel/dime/quarter default*/

if left(N,1)=='$' then N= 100 * substr(N, 2) /*the amount was specified in dollars.*/

coinsNN=words($) N; coins= words($) /*the number of coins specified. */

!.= .; NN=N; do j=1 for coins /*create a fast way of accessing specie*/

_= word($, j); ?= _ ' coin' /*define an array element for the coin.*/

if _=='½' if| _=='"1/2'" then _= .5 /*an alternate spelling of a half-centhalf─cent.*/

if _=='¼' if| _=='"1/4'" then _= .25 /* " " " " " quarter-quarter─¢.*/

$.j= _ /*assign the value to a particular coin*/

end /*j*/

_= n // 100; cnt=' cents' /* [↓] is the amount in whole dollars?*/

if _=0 then do; NN= '$' || (NN%100); cnt=; end /*show the amount in dollars, not cents*/

say 'with an amount of ' commascomma(NN)cnt", there are " commas comma( MKchg(N, coins) )

commascomma: procedure; parse arg _; n= _'.9'; #= 123456789; b= verify(n, #, "M")

e= verify(n, #'0', , verify(n, #"0.", 'M')) - 4

do j=e to b by -3; _= insert(',', _, j); end /*j*/; return _

MKchg: procedure expose $. !.; parse arg a,k parse arg a,k /*function is recursive. */

if !.a.k\==. then return !.a.k /*found this A & K before? */

if a==0 then return 1 /*unroll for a special case*/

if k==1 then return 1 /* " " " " " */

if k==2 then f= 1 /*handle this special case.*/

else f= MKchg(a, k-1) /*count, recurse the amount*/

if a==$.k then do; !.a.k= f+1; return !.a.k; end end /*handle this special case.*/

if a <$.k then do; !.a.k= f ; return f ; end end /* " " " " */

!.a.k= f + MKchg(a-$.k, k); return !.a.k /*compute, define, return. */</lang>

'''{{out|output''' |text=&nbsp; when using the following input for the optional test case: &nbsp; &nbsp; <tt> $1000 &nbsp; 1 &nbsp; 5 &nbsp; 10 &nbsp; 25 &nbsp; 50 &nbsp; 100 </tt>}}

if N='' | N="," then N=100 100 /*Not specified? Then Use $1 (≡100¢).*/

if $='' | $="," then $= 1 5 10 25 /*Use penny/nickel/dime/quarter default*/

X=N N /*save original for possible error msgs*/

_= substr(N, 2) /*the amount was specified in dollars.*/

N= 100 *_ _ /*change amount (in $) ───► cents (¢).*/

max$= 10 ** digits() /*the maximum amount this pgm can have.*/

coins= words($); !.= .; NN= N; p=0 p= 0 /*#coins specified; coins; amount; prev*/

@.=0 0 /*verify a coin was only specified once*/

do j=1 for coins; _= word($, j) /*create a fast way of accessing specie*/

_=word($,j); ?= _ ' coin' /*define an array element for the coin.*/

if _=='½' | _=="1/2'" then _= .5 /*an alternate spelling of a half-centhalf─cent.*/

if _=='¼' | _=="1/4'" then _= .25 /* " " " " " quarter-quarter─¢.*/

if \isNum(_) then call ser ? "coin value isn't numeric."

if _<0 then call ser ? "coin value can't be negative."

if _<=0 then call ser ? "coin value can't be zero."

if @._ then call ser ? "coin was already specified."

if _<p then call ser ? "coin must be greater than previous:" p

if _>N then call ser ? "coin must be less or equal to amount:" X

@._= 1; p=_ _ /*signify coin was specified; set prev.*/

$.j=_ _ /*assign the value to a particular coin*/

_= n // 100; cnt= ' cents' /* [↓] is the amount in whole dollars?*/

if _=0 then do; NN= '$' || (NN%100); cnt=; end /*show the amount in dollars, not cents*/

say 'with an amount of ' commas comma(NN)cnt", there are " commascomma( MKchg(N, coins) )

isNum: return datatype(arg(1), 'N') /*return 1 if arg is numeric, 0 if not.*/

ser: say; say '***error***'; say; say arg(1); say; exit 13 /*error msg.*/

commascomma: procedure; parse arg _; n= _'.9'; #= 123456789; b= verify(n, #, "M")

e= verify(n, #'0', , verify(n, #"0.", 'M')) - 4

do j=e to b by -3; _= insert(',', _, j); end /*j*/; return _

MKchg: procedure expose $. !.; parse arg a,k parse arg a,k /*function is recursive. */

if !.a.k\==. then return !.a.k /*found this A & K before? */

if a==0 then return 1 /*unroll for a special case*/

if k==1 then return 1 /* " " " " " */

if k==2 then f= 1 /*handle this special case.*/

else f= MKchg(a, k-1) /*count, recurse the amount*/

if a==$.k then do; !.a.k= f+1; return !.a.k; end end /*handle this special case.*/

if a <$.k then do; !.a.k= f ; return f ; end end /* " " " " */

!.a.k= f + MKchg(a-$.k, k); return !.a.k /*compute, define, return. */</lang>

'''{{out|output''' |text=&nbsp; is the same as the previous REXX versionsversion. }}<br><br>