Hi Marc,

On 05/26/2013 12:49 PM, Marc Chantreux wrote:
> say [+]
>     ('a'..'z')\
>     .pairs\
>     .map: { 1 + .key if .value ~~ any < m a t h > }  
> i already know i have to get used to the anoying \ at the end of the
> lines but i'm pretty sure there are plenty ways to make this expression
> shorter. 

masak took this to #perl6:

My solution, with a bit of help from masak:

say [+] <m a t h>ยป.ord X- ('a'.ord - 1)

Other approaches have been developed too, it's worth reading the logs :-)

If anybody has a good idea for removing that - 1, please tell me. (Using
'`'.ord instead of 'a'.ord - 1 seems too obscure for my taste).


Reply via email to