$_ = sub { print chr shift };
74->$                      _;
65->$                      _;
80->$                      _;
72->$                      _;
44->$                      _;

[download]

L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

Replies are listed 'Best First'.
Re: well-spaced JAPH
by Discipulus (Canon) on Oct 14, 2022 at 07:17 UTC
    ..I like it also in this form: 
    $              }=sub{ 
print chr shift}  and
map$   _    ->      $
}     ,74,65,80,72,44

    [download]

    found this weird syntax mentioned in moritz's cell and no: perl -le 'push a, 2, 3; print @a' does not work anymore (choroba should know since when ;)

    L*

    There are no rules, there are no thumbs..
    Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.
[reply]
[d/l]
[select]
      I guess this is pre-5.8, so out of my interest :-)

      map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
[reply]
[d/l]

        Just tested on 5.8.8 and it works there.

        Update: Also on 5.10.1. Even works on 5.16 albeit with the warning Array @a missing the @ in argument 1 of push() at -e line 1.

        🦛

[reply]
[d/l]

Back to Obfuscated Code