in reply to Golf: Indici to all sectors of an xD space

46 characters. 
sub h {
@;=[];@;=map{[@$_,1],[@$_,-1]}@;for 1..pop;\@;
}

[download]
Note that strict compliance bought absolutely no safety here, I just got around it with using a global punctuation variable. But I would have used a global punctuation variable anyways, it allows me to save a space in front of the for. Therefore I consider strict compliance in golf to be a useless constraint. It is too easily satisfied in point while disregarded in spirit.

Replies are listed 'Best First'.
(MeowChow) Re2: Golf: Indici to all sectors of an xD space
by MeowChow (Vicar) on Oct 10, 2001 at 23:33 UTC
    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
[reply]
[d/l]
      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]

In Section Meditations