Schönheitswettbewerb
bearbeitet von 1unitedpower> ~~~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))
~~~
Scope
bearbeitet von 1unitedpower> ~~~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))
~~~