You can figure it out yourself. :)
perl -e 'print chr while($_=shift);' 78 111 119 32 72 105 114 105 110 103
A modest 73 for starters
Re:Golf anyone?
gizmo_mathboy on 2003-12-17T00:17:47
perl -e 'print chr for(qw(78 111 119 32 72 105 114 105 110 103))'Re:Golf anyone?
rob_au on 2003-12-17T01:39:23
Less one stroke...
perl -e 'print chr for qw(78 111 119 32 72 105 114 105 110 103)'Re:Golf anyone?
petdance on 2003-12-17T01:45:33
How unsurprising that we all came up with the same solution:was what I did before I even saw the replies.perl -e'print chr for qw( 78 111 119 32 72 105 114 105 110 103 );Hooray for laziness.
Re:Golf anyone?
petdance on 2003-12-17T02:05:51
Here's some packing:and if we can require the user to hit Return + Ctrl-D:perl -e'print pack"C*",78,111,119,32,72,105,114,105,110,103'perl -pe'$_=pack"C*",78,111,119,32,72,105,114,105,110,103'Re:Golf anyone?
rob_au on 2003-12-17T01:43:27
A different approach...
perl -e 'print chr for @ARGV' 78 111 119 32 72 105 114 105 110 103Re:Golf anyone?
lipi on 2004-03-23T09:36:16
perl -e 'print 78.111.119.32.72.105.114.105.110.103'
52 charactersRe:Golf anyone?
djberg96 on 2004-03-23T14:28:59
What's sad is that I don't even understand why that works. Nice job, though.:) Re:Golf anyone?
lipi on 2004-03-23T14:57:38
From 'man perldata':A literal of the form "v1.20.300.4000" is parsed as a string composed
of characters with the specified ordinals. This form, known as
v-strings, provides an alternative, more readable way to construct
strings, rather than use the somewhat less readable interpolation form
"\x{1}\x{14}\x{12c}\x{fa0}". This is useful for representing Unicode
strings, and for comparing version "numbers" using the string compari-
son operators, "cmp", "gt", "lt" etc. If there are two or more dots in
the literal, the leading "v" may be omitted.
print v9786; # prints UTF-8 encoded SMILEY, "\x{263a}"
print v102.111.111; # prints "foo"
print 102.111.111; # same