Perl

This is my first attempt to write obfuscated code. I hope you'll like it.

#!/usr/bin/env perl {$i=$s=-!$v>>~!!$a<<!$l,$e=<>,!$e||$e<=$!?last:$!;{$_.=!(!$!+$#{[grep{$i==$_||!($i%$_)}$s..$i/$s]})&&$e--?"$i+!":'',$i++,$e>$!?redo:y.+!.,\x20.,s.,\s$.\n.,print}exit} $_="Hello World\n",s#\w(.)(.){5}(.)(.)\w*#$1$4$4$3$4#,print and die 

This program asks for a number and then prints that many primes. In case of error it will simply print error.

Perl

This is my first attempt to write obfuscated code. I hope you'll like it.

#!/usr/bin/env perl {$i=$s=-!$v>>~!!$a<<!$l,$e=<>,!$e||$e<=$!?last:$!;{$_.=!(!$!+$#{[grep{$i==$_||!($i%$_)}$s..$i/$s]})&&$e--?"$i+!":'',$i++,$e>$!?redo:y.+!.,\x20.,s.,\s$..,print}exit} $_="Hello World\n",s#\w(.)(.){5}(.)(.)\w*#$1$4$4$3$4#,print and die 

This program asks for a number and then prints that many primes. In case of error it will simply print error.

This program asks for a number and then prints that many primes. In case of error it will simply print error.