> ~~~perl > use strict; > use warnings; > > $, = " "; > sub f1{ > my $x = shift; > sub{ > my $y = shift; > $x * $y; > } > } > > # CODE Referenzen speichern > my $f3 = f1(3); > my $f5 = f1(5); > > # CODErefs ausführen > print $f3->(11), $f5->(7); > ~~~ Ich nominiere Haskell für den Schönheitspreis. [Code online ausführen](https://repl.it/repls/VisibleTriflingImplementation) ~~~haskell f1 = (*) f3 = f1 3 f5 = f1 5 main = print (show (f3 11, f5 7)) ~~~

> ~~~perl > use strict; > use warnings; > > $, = " "; > sub f1{ > my $x = shift; > sub{ > my $y = shift; > $x * $y; > } > } > > # CODE Referenzen speichern > my $f3 = f1(3); > my $f5 = f1(5); > > # CODErefs ausführen > print $f3->(11), $f5->(7); > ~~~ Ich nominiere Haskell in diesem Schönheitswettbewerb. [Code online ausführen](https://repl.it/repls/VisibleTriflingImplementation) ~~~haskell f1 = (*) f3 = f1 3 f5 = f1 5 main = print (show (f3 11, f5 7)) ~~~

> ~~~perl > use strict; > use warnings; > > $, = " "; > sub f1{ > my $x = shift; > sub{ > my $y = shift; > $x * $y; > } > } > > # CODE Referenzen speichern > my $f3 = f1(3); > my $f5 = f1(5); > > # CODErefs ausführen > print $f3->(11), $f5->(7); > ~~~ Ich nominiere Haskell in diesem Schönheitswettbewerb. [Code online ausführen](https://repl.it/repls/VisibleTriflingImplementation) ~~~haskell f1 = (*) f3 = f1 3 f5 = f1 5 main = print (show (f3 11, f5 7)) ~~~