Paste number 22082: | borkfuck2c.pl |
Pasted by: | leeg |
When: | 18 years, 8 months ago |
Share: | Tweet this! | http://paste.lisp.org/+H1E |
Channel: | #opendarwin |
Paste contents: |
#!/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/brk/}/;print;}print "return 0;}";
This paste has no annotations.