RosettaCodeData/Task/Currying/Perl-6/currying.pl6

3 lines
55 B
Raku

my &negative = &infix:<->.assuming(0);
say negative 1;