If we define a JAPH strictly as 'emit the string "Just another Perl hacker\n"' or something similarly precise (being that I'm too lazy to look up the canonical form because it's not critical to my proof), then there are an infinite number of ways to code a JAPH in Perl. Whether that infinity is countable or not I do not purpose to address.

Proof by induction:

Let the initial program P be: print "Just another Perl hacker\n"; produces the required output.

If we have a program Q to which we append:

the program's behavior will be unchanged.

Therefore, for any program R that is composed of P followed by any number of Q, the program RQ continues to produce the desired output.

This produces a nominally infinite sequence of programs that code a JAPH in Perl, limited only by mere physical limitations of the computer that is hosting this exercise.

QED (with caveats)


In reply to Re: Infinite JAPHs? by herveus
in thread Infinite JAPHs? by NateTut

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • Outside of code tags, you may need to use entities for some characters:
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.