Paste number 22082:

Paste number 22082:
Pasted by: leeg
When:15 years, 10 months ago
Share:Tweet this! |
Paste contents:
Raw Source | XML | Display As
#!/usr/bin/perl -w
use strict;print "#include <stdio.h>\n#include<stdlib.h>int main(void){int *p=malloc(30000*sizeof(int));";while(<STDIN>){chomp;s/bork/++p;/;s/börk/--p;/;s/børk/++*p;/;s/bôrk/--*p;/;s/bórk/putchar(*p);/;s/bòrk/*p=getchar();/;s/bºrk/while(*p){/;s/bœrk/}/;print;}print "return 0;}";

This paste has no annotations.

Colorize as:
Show Line Numbers

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.