Schönheitswettbewerb

[1unitedpower]

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

f1 = (*)
f3 = f1 3
f5 = f1 5
main = print (show (f3 11, f5 7))