P-Seebauer · September 24, 2015 21:12 · P-Seebauer · Sep 23, 2015
diff --git a/elixir.exs b/elixir.exs
 h=100
 IO.puts(([200,h,50,20,10,5,2,1]|>Enum.reduce{h*elem(Float.parse(hd System.argv),0)|>trunc,[]},fn(i,{c,l})->{rem(c,i),List.duplicate(i<h&&"#{i}¢ "||"#{div(i,h)}€ ",div(c,i))++l}end)|>elem 1)
diff --git a/haskell.hs b/haskell.hs
 h=100
 main = do
 a <- getLine
 putStr$foldl1(\x y->x++' ':y)$snd$foldl(\(y,z)x->(y`mod`x,z++(replicate(y`div`x)$if x`mod`h==0then show(x`div`h)++"€"else(show x)++"¢")))(truncate(((read a)::Float)*100),[])[200,h,50,20,10,5,2,1]
diff --git a/iojs.js b/iojs.js
 i=process.argv[2],r=[];for(c of [2,1,.5,.2,.1,.05,.02,.01])while(c>i){r.push(c>.5?c+'€':c*100+'¢');i-=c}console.log(r)
diff --git a/node.js b/node.js
 for(r=[],b=[1,2,5,10,20,50,h=100,200],i=process.argv[2]*h;c=b.pop();)for(;c<i;i-=c)r.push(c<h?c+'¢':c/h+'€');console.log(r)
diff --git a/perl6.p6 b/perl6.p6
 my$x=prompt '';say gather for 2,1,.5,.2,.1,.05,.02,.01 {while $x>=$_ {take $_>.5??"$_€"!!"{$_*100}¢";$x-=$_}}
diff --git a/swipl.pl b/swipl.pl
 #!/usr/bin/swipl -q -s
 z(X,[A|R],S):-X>=A,z(X-A,[A|R],Y),S=[A|Y];z(X,R,S).
 z(X,[],[]):-0=:=X.
 y(X):-X>99->format('~I€ ',X/100);format('~I¢ ',X).
 x(X):-z(X*100,[200,100,50,20,10,5,2,1],Y),maplist(y,Y).
 :-write('enter number (finish with .)\n>'),read(X),x(X).
	h=100
	IO.puts(([200,h,50,20,10,5,2,1]\|>Enum.reduce{h*elem(Float.parse(hd System.argv),0)\|>trunc,[]},fn(i,{c,l})->{rem(c,i),List.duplicate(i<h&&"#{i}¢ "\|\|"#{div(i,h)}€ ",div(c,i))++l}end)\|>elem 1)
	h=100
	main = do
	a <- getLine
	putStr$foldl1(\x y->x++' ':y)$snd$foldl(\(y,z)x->(y`mod`x,z++(replicate(y`div`x)$if x`mod`h==0then show(x`div`h)++"€"else(show x)++"¢")))(truncate(((read a)::Float)*100),[])[200,h,50,20,10,5,2,1]
	#!/usr/bin/swipl -q -s
	z(X,[A\|R],S):-X>=A,z(X-A,[A\|R],Y),S=[A\|Y];z(X,R,S).
	z(X,[],[]):-0=:=X.
	y(X):-X>99->format('~I€ ',X/100);format('~I¢ ',X).
	x(X):-z(X*100,[200,100,50,20,10,5,2,1],Y),maplist(y,Y).
	:-write('enter number (finish with .)\n>'),read(X),x(X).