daily pastebin goal
36%
SHARE
TWEET

[Perl 6] Higher-order function combo (method call).

cwchen Nov 28th, 2017 87 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. my $n = (1..10)
  2.     .grep({ $_ mod 2 != 0 })
  3.     .map({ $_ ** 2 })
  4.     .reduce: { $^a + $^b };
  5.  
  6. $n == 1 ** 2 + 3 ** 2 + 5 ** 2 + 7 ** 2 + 9 ** 2 or die "Wrong value";
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top