Re^2: Seek one liner for distributing an integer

or if you want something ugly:

%result =
map{pop@array,length}('1'x$num)=~/^@{['(.*)'.'(\1.?)'x$#array]}$/;
[download]

Apparently, map + regexps can do anything! ☺

Non-destructive:

%result =
map{$array[$i++],length}('1'x$num)=~/^@{['(.*)'.'(\1.?)'x$#array]}$/;
[download]

Comment on Re^2: Seek one liner for distributing an integer Select or Download Code

Replies are listed 'Best First'.
Re^3: Seek one liner for distributing an integer by sleepingsquirrel (Chaplain) on Sep 22, 2004 at 16:16 UTC
Apparently, map + regexps can do anything! I'm pretty sure perl's flavor of regular expressions are turing complete, so you could do it all without the map. (I guess that would make them trans-regular expressions. Anyone got a better name?) -- All code is 100% tested and functional unless otherwise noted.	[reply]
Re^4: Seek one liner for distributing an integer by ikegami (Patriarch) on Sep 22, 2004 at 16:19 UTC
Is "I'm pretty sure perl's flavor of regular expressions are turing complete" a challenge? :)	[reply]