http://www.perlmonks.org?node_id=302854


in reply to How's your Perl?

Strict solutions to all exercises, base64-encoded:

1b3VyIEB4OyBteSAkeTsgKng9c3Vie1xAX30tPigkeSwkeSk=
2e2ZvbztyZWRvfQ==
3abXkgJGZvbyA9IFt7MSwgMX1d
3bc3ViIHogOiBsdmFsdWUgeyAkOjp6WzFdIH0gbXkgJGZvbyA9ICp6
4ZHVtcDs7 or ZHVtcCgp or fn5kdW1w, etc :-)
5c3ViIGZvbyB7IG15ICR4IGlmIDA7IC4uLiB9
6b3VyICgkeCwgJHkpID0gKCp4LCBldmFsICJsb2NhbCAqeCIp
7bXkgJGZvbyA9ICpTVERPVVR7SU99
8b3VyICRmb287ICpmb28gPSBcKyskfA==
9abXkgJGZvbyA9IFwkXlM=
9bcGFja2FnZSBZO291ciRmb289XDA7JFg6OmZvbz1cIiAiOypZOjo9Klg6Og==
or JGZvbz0iXzwoZXZhbCAxKSI= (non-strict original)
10QkVHSU57Knk6Oj0qeDo6PSQ6Onk9Kjo6fQ==
11KkNPUkU6OkdMT0JBTDo6Z2xvYj1zdWJ7fQ==

For the bonus exercise, see the explanation above

Replies are listed 'Best First'.
Re: Solutions
by BrowserUk (Patriarch) on Oct 28, 2003 at 23:56 UTC

    Fun! Now let's see you come up with 10 more for next weeks quiz:)

    Examine what is said, not who speaks.
    "Efficiency is intelligent laziness." -David Dunham
    "Think for yourself!" - Abigail
    Hooray!
[reply]
      argh :-)
[reply]
Re: Solutions
by mauke (Novice) on Oct 30, 2003 at 21:21 UTC
    Another (strict) solution for 9b:
    BEGIN {$^H |= 0x30000}
$^H{'qr'} = sub {''};
my $foo = \'';

    [download]
[reply]
[d/l]
Re: Solutions
by Anonymous Monk on Oct 29, 2003 at 00:01 UTC
    Another solution for E8:
    KmZvbyA9IFxsb2NhbCAkMQ==
    This one relies on a bug in perl.
[reply]
[d/l]
Re: Solutions
by jettero (Monsignor) on Mar 12, 2009 at 12:41 UTC
    I think the answer to number 2 is unnecessarily obfu. You can actually do it with while too... Perhaps it should ask without using while? UPDATE: I'm pretty sure they shortened the number of characters since I wrote this.

    -Paul

[reply]
      In 10 chars? 
      while(){foo}   # 12 chars
foo while 1    # 11 chars

      [download]
[reply]
[d/l]

In Section Meditations