Help for this page

Select Code to Download


  1. or download this
        @oddsquares = map { $_**2 }, sort grep { $_ % 2 }, @nums;
    
        # more clearly written as...
    
        @oddsquares = map { $_**2 } <== sort <== grep { $_ % 2 } <== @nums
    +;
    
  2. or download this
        @oddsquares =
                (@nums ==> grep { $_ % 2 } ==> sort ==> map { $_**2 });