How are we doing? Please help us improve Stack Overflow. Take our short survey
Pegasus Epsilon's user avatar
Pegasus Epsilon's user avatar
Pegasus Epsilon's user avatar
Pegasus Epsilon
  • Member for 11 years, 1 month
  • Last seen more than a month ago
About

I smash keys randomly and perl does useful things. For various values of useful. I also fiddle with C and other things. For whatever that's worth to you. Here's a lovely example of my madness:

$q="raw 2>&1";@c=split//,join'',<>;while($_=$c[$p],/./s){/>/&&$i++;/</&&$i--
;/]/&&($p=pop@s)--;/\[/&&($m[$i]?push@s,$p:do{$_=$c[++$p]while$x+=/\[/-/]/})
;/,/&&(`stty $q`,$m[$i]=ord getc,`stty -$q`);/\./&&print chr$m[$i];/\+/&&$m[
$i]++;/-/&&$m[$i]--;$p++} # brainfuck.pl (C)2006-2022 [email protected]
Badges
This user doesn’t have any gold badges yet.
This user doesn’t have any silver badges yet.
7
bronze badges
Top tags
8
Score
2
Posts
50
Posts %
2
Score
1
Posts
25
Posts %
2
Score
1
Posts
25
Posts %
1
Score
1
Posts
25
Posts %
1
Score
1
Posts
25
Posts %
0
Score
1
Posts
25
Posts %
Top posts