cwchen icon

[Perl 6] Higher-order function combo demo.

cwchen | PRO | 11/29/17 02:14:55 AM UTC | 0 ⭐ | 12080 👁️ | Never ⏰ | []
Perl 6 |

0 B

|

None

|

0 👍

/

0 👎

Raw Download Clone Embed Print View 
my $n =
    reduce { $^a + $^b },
    map { $_ ** 2 },
    grep { $_ mod 2 != 0 },
        1..10;
 
$n == 1 ** 2 + 3 ** 2 + 5 ** 2 + 7 ** 2 + 9 ** 2 or die "Wrong value";

Comments

  • icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎

    
    
    

    

            
    • 
            
            
  • 
                
    
                    
    
                         icon
                    
    
                    
    
                        
                        
                        
                    
    
                    
    
                        
                        01/01/70 12:00:00 AM UTC
                        
                    
    
                
    
                

    
    
    
        
    
            Plain Text
            |
            
    0 B
    
            
            |
            
     👍
    
            /
            
     👎
    
        
    
        
    
    
    
    
        
    
    
    

    

            
    •