in reply to Re: mini-golf: convert integer into list of powers of two
in thread mini-golf: convert integer into list of powers of two

That's 32 by my reckoning...

0        1         2         3
12345678901234567890123456789012
sub{grep$_,map$_[0]&1<<$_,0..31}

[download]

Using the assign-within-grep trick I applied to BrowserUK's solution, it is possible to take it down to 31 though:

0        1         2         3
1234567890123456789012345678901
sub{grep$_[0]&($_=1<<$_),0..31}

[download]
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

In Section Meditations