Who's responsible for this ?

Discussion in 'Perl Misc' started by Csaba, Sep 30, 2004.

  1. Csaba

    Csaba Guest

    not exp log srand xor s qq qx xor
    s x x length uc ord and print chr
    ord for qw q join use sub tied qx
    xor eval xor print qq q q xor int
    eval lc q m cos and print chr ord
    for qw y abs ne open tied hex exp
    ref y m xor scalar srand print qq
    q q xor int eval lc qq y sqrt cos
    and print chr ord for qw x printf
    each return local x y or print qq
    s s and eval q s undef or oct xor
    time xor ref print chr int ord lc
    foreach qw y hex alarm chdir kill
    exec return y s gt sin sort split


    --
    Life is complex, with real and imaginary parts.
     
    Csaba, Sep 30, 2004
    #1
    1. Advertising

  2. Also sprach Csaba:

    > not exp log srand xor s qq qx xor
    > s x x length uc ord and print chr
    > ord for qw q join use sub tied qx
    > xor eval xor print qq q q xor int
    > eval lc q m cos and print chr ord
    > for qw y abs ne open tied hex exp
    > ref y m xor scalar srand print qq
    > q q xor int eval lc qq y sqrt cos
    > and print chr ord for qw x printf
    > each return local x y or print qq
    > s s and eval q s undef or oct xor
    > time xor ref print chr int ord lc
    > foreach qw y hex alarm chdir kill
    > exec return y s gt sin sort split


    Heh. That must be one of the coolests JAPHs I've seen so far. This JAPH
    shows up on perlmonks:

    http://www.perlmonks.org/index.pl?node_id=290607

    It's not entirely clear though whether the poster was the creator of the
    above.

    Tassilo
    --
    $_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
    pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
    $_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
     
    Tassilo v. Parseval, Oct 1, 2004
    #2
    1. Advertising

  3. On 30 Sep 2004 21:13:30 GMT, Csaba <root@localhost> wrote:

    > not exp log srand xor s qq qx xor
    > s x x length uc ord and print chr
    > ord for qw q join use sub tied qx
    > xor eval xor print qq q q xor int
    > eval lc q m cos and print chr ord
    > for qw y abs ne open tied hex exp
    > ref y m xor scalar srand print qq
    > q q xor int eval lc qq y sqrt cos
    > and print chr ord for qw x printf
    > each return local x y or print qq
    > s s and eval q s undef or oct xor
    > time xor ref print chr int ord lc
    > foreach qw y hex alarm chdir kill
    > exec return y s gt sin sort split


    Whoever... cool!


    Michele
    --
    {$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
    (($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
    ..'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
    256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
     
    Michele Dondi, Oct 1, 2004
    #3
  4. Csaba <root@localhost> wrote in news:Xns9574E216AE493rs232@195.129.110.131:

    > not exp log srand xor s qq qx xor
    > s x x length uc ord and print chr
    > ord for qw q join use sub tied qx
    > xor eval xor print qq q q xor int
    > eval lc q m cos and print chr ord
    > for qw y abs ne open tied hex exp
    > ref y m xor scalar srand print qq
    > q q xor int eval lc qq y sqrt cos
    > and print chr ord for qw x printf
    > each return local x y or print qq
    > s s and eval q s undef or oct xor
    > time xor ref print chr int ord lc
    > foreach qw y hex alarm chdir kill
    > exec return y s gt sin sort split
    >
    >


    It's beautiful, isn't it? No punctuation at all.

    For your enjoyment, I present the exact opposite, a JAPH I wrote a few
    weeks ago. It contains no alphabetic, numeric, or whitespace characters.
    (sadly, it only works on unix-like systems)

    --
    Eric
    `$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=(
    $!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$"),$=++;$.++;$.++;
    $_++;$_++;($_,$\,$,)=($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,$#,);$,++
    ;$,++;$^|=$";`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`
     
    Eric J. Roode, Oct 9, 2004
    #4
  5. Csaba

    Anno Siegel Guest

    Eric J. Roode <> wrote in comp.lang.perl.misc:
    > Csaba <root@localhost> wrote in news:Xns9574E216AE493rs232@195.129.110.131:
    >
    > > not exp log srand xor s qq qx xor
    > > s x x length uc ord and print chr
    > > ord for qw q join use sub tied qx
    > > xor eval xor print qq q q xor int
    > > eval lc q m cos and print chr ord
    > > for qw y abs ne open tied hex exp
    > > ref y m xor scalar srand print qq
    > > q q xor int eval lc qq y sqrt cos
    > > and print chr ord for qw x printf
    > > each return local x y or print qq
    > > s s and eval q s undef or oct xor
    > > time xor ref print chr int ord lc
    > > foreach qw y hex alarm chdir kill
    > > exec return y s gt sin sort split
    > >
    > >

    >
    > It's beautiful, isn't it? No punctuation at all.


    ....not to mention that it breaks into 14 lines of 33 characters each
    with only single blanks a word separators.

    > For your enjoyment, I present the exact opposite, a JAPH I wrote a few
    > weeks ago. It contains no alphabetic, numeric, or whitespace characters.
    > (sadly, it only works on unix-like systems)
    >
    > --
    > Eric
    > `$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=(
    > $!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$"),$=++;$.++;$.++;
    > $_++;$_++;($_,$\,$,)=($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,$#,);$,++
    > ;$,++;$^|=$";`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`


    A pretty contrast, the two of them...

    Anno
     
    Anno Siegel, Oct 11, 2004
    #5
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Xah Lee

    responsible license

    Xah Lee, Aug 31, 2003, in forum: C Programming
    Replies:
    13
    Views:
    544
    Rob Warnock
    Sep 6, 2003
  2. Maligree
    Replies:
    2
    Views:
    356
  3. Daniel Lee

    Who is responsible creating client certificate?

    Daniel Lee, Jul 29, 2006, in forum: ASP .Net Web Services
    Replies:
    2
    Views:
    289
    Daniel Lee
    Aug 16, 2006
Loading...

Share This Page