Skip to content

Instantly share code, notes, and snippets.

lucapette lucapette

  • Berlin, Germany
Block or report user

Report or block lucapette

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
lucapette /
Created Sep 25, 2010
a stupid perl script from my childhood
#!/usr/bin/perl -w
use strict;
my %letters=(
"A" => "ALFA",
"B" => "BRAVO",
"C" => "CHARLIE",
"D" => "DELTA",
"E" => "ECHO",
View quine_define.c
#define t(x) main(){printf(#x"\nt("#x")\n");}
t(#define t(x) main(){printf(#x"\nt("#x")\n");})
View quine.c
char *s="char *s=%c%s%c%c%c%cmain()%c{%c printf(c,10,34,c,34,59,10);%c printf(s,34,s,34,59,10,10,10,10,10,10,10);%c}%c";
You can’t perform that action at this time.