(MeowChow) Re2: Golf: Indici to all sectors of an xD space

I can't beat this, but here's strict in spirit at 46:

sub h {
$_[0]?[map{[@$_,1],[@$_,-1]}@{h(-1+pop)}]:[[]]
}
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

Comment on (MeowChow) Re2: Golf: Indici to all sectors of an xD space Download Code

Replies are listed 'Best First'.
Re (tilly) 3: Golf: Indici to all sectors of an xD space by tilly (Archbishop) on Oct 10, 2001 at 23:54 UTC
OK, strict in spirit at 44. `sub h{ #23456789_123456789_123456789_123456789_1234 eval'['.('map{[@$_,1],[@$_,-1]}'x pop).'[]]' }` [download] UPDATE Well strict and warnings compliant in 43: `sub h{ #23456789_123456789_123456789_123456789_123 [eval(('map{[@$_,1],[@$_,-1]}'x pop).'[]')] }` [download] and then strict alone in 39: `sub h{ #23456789_123456789_123456789_123456789 [eval'map{[@$_,1],[@$_,-1]}'x pop.'[]'] }` [download] UPDATE 2 Warnings as well in 40: `sub h{ #23456789_123456789_123456789_123456789_ [eval'map{[@$_,1],[@$_,-1]}'x$_[0].'[]'] }` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

sub h{
#23456789_123456789_123456789_123456789_1234
eval'['.('map{[@$_,1],[@$_,-1]}'x pop).'[]]'
}
[download]

UPDATE

sub h{
#23456789_123456789_123456789_123456789_123
[eval(('map{[@$_,1],[@$_,-1]}'x pop).'[]')]
}
[download]

sub h{
#23456789_123456789_123456789_123456789
[eval'map{[@$_,1],[@$_,-1]}'x pop.'[]']
}
[download]

UPDATE 2

sub h{
#23456789_123456789_123456789_123456789_
[eval'map{[@$_,1],[@$_,-1]}'x$_[0].'[]']
}
[download]