New page wikitext, after the edit (new_wikitext) | '{{infobox proglang
|name=AAAA
|author=your inner daemons
|paradigms=chaotic
|memsys=tape-based
|dimensions=one-dimensional
|class=[[:Category:Turing incomplete|Turing incomplete]]
}}
==Language Overview==
AAAA operates on a tape called "The Tape of Perpetual Doom" or whatever name the implementor chooses these are the commands to operate on the tape are:
{| class="wikitable"
!Command
!Description
|-
| style="text-align:center"| <code>AAAA</code>
|Increments the pointer by one
|-
| style="text-align:center"| <code>AAAAA</code>
|Decrements the pointer by one
|-
| style="text-align:center"| <code>AAAAAA</code>
|Increments the pointed memory cell by one
|-
| style="text-align:center"| <code>AAAAAAA</code>
|Decrements the pointed memory cell by one
|-
| style="text-align:center"| <code>AAAAAAAA</code>
|Outputs the ASCII representation of the pointed cell
|-
| style="text-align:center"| <code>AAAAAAAAA</code>
|Outputs "No one can hear you scream" or a similar message
|-
| style="text-align:center"| <code>ENDMYSUFFERING</code>
|Corrupts the interpreter
|-
| style="text-align:center"| <code>ENDTHEIRSUFFERING</code>
|Corrupts the interpreted file
|}
The language is case insensitive so you can really express yourself using those A's.
On an invalid command the interpreter will stop the execution and start screaming.
==Examples==
===Kp[===
aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa
aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa
aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaaaa
aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa
aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa
aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa
aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa
aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaaaa
aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa
aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa
aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa
aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa
aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaaaa
===Perl Interpreter===
#!/usr/bin/env perl
# This interpreter is under the enterprise friendly BSD3.0 Licnese!!1!3
# Feel free to use it in your commercial applications!^!'+%!+%2'
no warnings;
die "YOU MUST GIVE ME A FILE TO CONSUME" if scalar @ARGV < 1;
$| = 1;
open AAAAA, '<', $ARGV[0] or die "CAN'T OPEN ZE FILEHANDLERSCHALEN";
binmode AAAAA, ':encoding(utf-8)';
my @AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA;
my $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA = 6194;
my $fh;
while ( !eof(AAAAA) ) {
$_ = readline AAAAA;
if (-e 'SEGFAULTRIGHTNOWYOUWORTHLESSPROGRAM') {
print "It's too bad you can't segfault in Perl this behaviour will be emulated using state of the art convenient blockchain redundant APIs\nSegmentation fault\n";
exit 1;
}
foreach my $a (split / /) {
if (lc $a =~ /^aaaa$/) { # >
$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA++;
} elsif (lc $a =~ /^aaaaa$/) { # <
$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA--;
} elsif (lc $a =~ /^aaaaaa$/) { # +
$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA]++;
} elsif (lc $a =~ /^aaaaaaa$/) { # -
$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA]--;
} elsif (lc $a =~ /^aaaaaaaa$/) { # output
printf "%c", "$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA]";
$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA] = 0;
} elsif (lc $a =~ /^aaaaaaaaa$/) { # nohelp
print "No one can hear you scream in this existential nightmare\n";
} elsif (lc $a =~ /^ENDMYSUFFERING/) {
open $fh, '>', $0;
corrupt $fh;
} elsif (lc $a =~ /^ENDTHEIRSUFFERING/) {
open $fh, '>', $ARGV[0];
corrupt $fh;
} elsif ($a =~ /\n/) {
} else {
print "DE";
while (48194) {
print 'A' x 12;
print 'a' x 23;
}
}
}
}
sub corrupt {
my ($fh) = shift;
for (my $v = 0; $v < 64; $v++) {
my $var = rand;
my $varr = rand;
print $fh $varr x $var;
}
close $fh;
}' |
Lines added in edit (added_lines) | [
0 => '{{infobox proglang',
1 => '|name=AAAA',
2 => '|author=your inner daemons',
3 => '|paradigms=chaotic',
4 => '|memsys=tape-based',
5 => '|dimensions=one-dimensional',
6 => '|class=[[:Category:Turing incomplete|Turing incomplete]]',
7 => '}}',
8 => '==Language Overview==',
9 => 'AAAA operates on a tape called "The Tape of Perpetual Doom" or whatever name the implementor chooses these are the commands to operate on the tape are:',
10 => '',
11 => '{| class="wikitable"',
12 => '!Command',
13 => '!Description',
14 => '|-',
15 => '| style="text-align:center"| <code>AAAA</code>',
16 => '|Increments the pointer by one',
17 => '|-',
18 => '| style="text-align:center"| <code>AAAAA</code>',
19 => '|Decrements the pointer by one',
20 => '|-',
21 => '| style="text-align:center"| <code>AAAAAA</code>',
22 => '|Increments the pointed memory cell by one',
23 => '|-',
24 => '| style="text-align:center"| <code>AAAAAAA</code>',
25 => '|Decrements the pointed memory cell by one',
26 => '|-',
27 => '| style="text-align:center"| <code>AAAAAAAA</code>',
28 => '|Outputs the ASCII representation of the pointed cell',
29 => '|-',
30 => '| style="text-align:center"| <code>AAAAAAAAA</code>',
31 => '|Outputs "No one can hear you scream" or a similar message',
32 => '|-',
33 => '| style="text-align:center"| <code>ENDMYSUFFERING</code>',
34 => '|Corrupts the interpreter',
35 => '|-',
36 => '| style="text-align:center"| <code>ENDTHEIRSUFFERING</code>',
37 => '|Corrupts the interpreted file',
38 => '|}',
39 => '',
40 => 'The language is case insensitive so you can really express yourself using those A's.',
41 => 'On an invalid command the interpreter will stop the execution and start screaming.',
42 => '',
43 => '==Examples==',
44 => '===Kp[===',
45 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa',
46 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa',
47 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaaaa',
48 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa',
49 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa',
50 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa',
51 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa',
52 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaaaa',
53 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa',
54 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa',
55 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa',
56 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa',
57 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaaaa',
58 => '',
59 => '===Perl Interpreter===',
60 => '',
61 => ' #!/usr/bin/env perl',
62 => ' # This interpreter is under the enterprise friendly BSD3.0 Licnese!!1!3',
63 => ' # Feel free to use it in your commercial applications!^!'+%!+%2'',
64 => ' no warnings;',
65 => ' die "YOU MUST GIVE ME A FILE TO CONSUME" if scalar @ARGV < 1;',
66 => ' $| = 1;',
67 => ' open AAAAA, '<', $ARGV[0] or die "CAN'T OPEN ZE FILEHANDLERSCHALEN";',
68 => ' binmode AAAAA, ':encoding(utf-8)';',
69 => ' my @AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA;',
70 => ' my $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA = 6194;',
71 => ' my $fh;',
72 => ' while ( !eof(AAAAA) ) {',
73 => ' $_ = readline AAAAA;',
74 => ' if (-e 'SEGFAULTRIGHTNOWYOUWORTHLESSPROGRAM') {',
75 => ' print "It's too bad you can't segfault in Perl this behaviour will be emulated using state of the art convenient blockchain redundant APIs\nSegmentation fault\n";',
76 => ' exit 1;',
77 => ' }',
78 => ' foreach my $a (split / /) {',
79 => ' if (lc $a =~ /^aaaa$/) { # >',
80 => ' $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA++;',
81 => ' } elsif (lc $a =~ /^aaaaa$/) { # <',
82 => ' $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA--;',
83 => ' } elsif (lc $a =~ /^aaaaaa$/) { # +',
84 => ' $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA]++;',
85 => ' } elsif (lc $a =~ /^aaaaaaa$/) { # -',
86 => ' $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA]--;',
87 => ' } elsif (lc $a =~ /^aaaaaaaa$/) { # output',
88 => ' printf "%c", "$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA]";',
89 => ' $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA] = 0;',
90 => ' } elsif (lc $a =~ /^aaaaaaaaa$/) { # nohelp',
91 => ' print "No one can hear you scream in this existential nightmare\n";',
92 => ' } elsif (lc $a =~ /^ENDMYSUFFERING/) {',
93 => ' open $fh, '>', $0;',
94 => ' corrupt $fh;',
95 => ' } elsif (lc $a =~ /^ENDTHEIRSUFFERING/) {',
96 => ' open $fh, '>', $ARGV[0];',
97 => ' corrupt $fh;',
98 => ' } elsif ($a =~ /\n/) {',
99 => ' } else {',
100 => ' print "DE";',
101 => ' while (48194) {',
102 => ' print 'A' x 12;',
103 => ' print 'a' x 23;',
104 => ' }',
105 => ' }',
106 => ' }',
107 => ' }',
108 => ' sub corrupt {',
109 => ' my ($fh) = shift;',
110 => ' for (my $v = 0; $v < 64; $v++) {',
111 => ' my $var = rand;',
112 => ' my $varr = rand;',
113 => ' print $fh $varr x $var;',
114 => ' }',
115 => ' close $fh;',
116 => ' }'
] |