Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
57
Task/Execute-Brain----/Axe/execute-brain-----1.axe
Normal file
57
Task/Execute-Brain----/Axe/execute-brain-----1.axe
Normal file
|
|
@ -0,0 +1,57 @@
|
|||
Lbl BF
|
||||
r₁→P
|
||||
r₂→I
|
||||
L₁→D
|
||||
Fill(D,768,0)
|
||||
|
||||
While {P}
|
||||
{P}→C
|
||||
If C='+'
|
||||
{D}++
|
||||
ElseIf C='-'
|
||||
{D}--
|
||||
ElseIf C='>'
|
||||
D++
|
||||
ElseIf C='<'
|
||||
D--
|
||||
ElseIf C='.'
|
||||
Disp {D}▶Char
|
||||
ElseIf C=','
|
||||
{I}→{D}
|
||||
I++
|
||||
ElseIf C='['?{D}=0
|
||||
NEXT(P)→P
|
||||
ElseIf C=']'
|
||||
PREV(P)→P
|
||||
End
|
||||
P++
|
||||
End
|
||||
Return
|
||||
|
||||
Lbl NEXT
|
||||
r₁++
|
||||
1→S
|
||||
While S
|
||||
If {r₁}='['
|
||||
S++
|
||||
ElseIf {r₁}=']'
|
||||
S--
|
||||
End
|
||||
r₁++
|
||||
End
|
||||
r₁
|
||||
Return
|
||||
|
||||
Lbl PREV
|
||||
r₁--
|
||||
1→S
|
||||
While S
|
||||
If {r₁}=']'
|
||||
S++
|
||||
ElseIf {r₁}='['
|
||||
S--
|
||||
End
|
||||
r₁--
|
||||
End
|
||||
r₁
|
||||
Return
|
||||
2
Task/Execute-Brain----/Axe/execute-brain-----2.axe
Normal file
2
Task/Execute-Brain----/Axe/execute-brain-----2.axe
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
"++++++++++++++++++++++++++++++++[>+>+<<-]>>+++++++++++++++++++++++++<<++++++++++[>>.-<.<-]"→Str1
|
||||
BF(Str1,0)
|
||||
Loading…
Add table
Add a link
Reference in a new issue