Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: JA(C|P)H

by eyepopslikeamosquito (Chancellor)
on Mar 26, 2005 at 12:35 UTC ( #442473=note: print w/replies, xml ) Need Help??


in reply to JA(C|P)H

When researching The Lighter Side of Perl Culture (Part III): Obfu, I found some golden oldies: P(ython|erl) (suck|rule)s!, C is Perl, Perl is C. Oh, and I made a feeble attempt in TPR(0,0):

#include <stdio.h> #include <stdlib.h> #define strtol(a,b) strtol(a,0,b) #define $ /* use POSIX;$argv[1]=pop;"*/ main(int argc,char *argv[]) //"; { printf("%ld\n",strtol($ argv[1],36)); }

Lyon's Jerome Quelin showcased an octo-lingual (perl, c, c++, befunge, brainf**k, python, ook, html/javascript) program that computed the Fibonacci series in his YAPC::Europe 2003 talk. Sorry, I don't have a link (and I tried to find one), so if anyone knows of a link to Jerome's amazing feat, please let me know.

Replies are listed 'Best First'.
Re^2: JA(C|P)H
by ktross (Deacon) on Mar 28, 2005 at 19:43 UTC

    I haven't been able to locate Jerome Quelin's octo-lingual code but I did find a quatro-lingual (perl, c, brain@#!*, Befunge) tutoral by him (offsite)

    I also found another node by AlexL that prints hello world in four languages (perl, C, Tcl, and REBOL) and an octo-lingual code here(offsite) by Kevin Bungard, Peter Lisle, and Chris Tham.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://442473]
help
Chatterbox?
[Discipulus]: many monks want to be hired tonight, other haired and some aired
[Lady_Aleena]: Discipulus, do glob recurse?
[Lady_Aleena]: s/do/does/;
LanX wants to be fired
[Discipulus]: i fear no
[Discipulus]: i invented also 'gired'
[Lady_Aleena]: Discipulus, then that is a problem. I wanted to find total seconds of my entire .mp3 collection to do some math on it to see how many days of continuous music i have.
[LanX]: darn. .. I wanted to see Marine and Melonchon go to next round, just for fun xD
[Discipulus]: LA use Perl: traversing a dir tree is simple; foreach file mp3 $sec+= use Mp3::Info
[Lady_Aleena]: Discipulus, I was able to get the sum of the seconds on the command line using awk. Then I ran the result through a perl script and got the result. It came bach with 4 days, 9 hours, 56 minutes, 43 seconds.

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (10)
As of 2017-04-23 20:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (432 votes). Check out past polls.