57 lines
775 B
Brainfuck
57 lines
775 B
Brainfuck
COMPAR :
|
|
========
|
|
|
|
<[
|
|
>[->+>+<<]>>[-<<+>>] on copie
|
|
+<[>-<[-]] on teste
|
|
>[->+>+<<]>>[-<<+>>]
|
|
<[<<<<[-]+>+>>>-] si le test est valide on efface
|
|
<<<-<-on finit la boucle
|
|
]
|
|
{add the last part}
|
|
|
|
|
|
EQUALS :
|
|
+>[<->[-]]>>[<<<->>>-]<<<
|
|
|
|
DIFFERENT :
|
|
>[<+>[-]]>>[<<<+>>>-]<<<
|
|
|
|
GREATER :
|
|
>>>[<<<+>>>-]<<<
|
|
|
|
GREATER OR EQUALS :
|
|
+>[<->[-]]<
|
|
|
|
SMALLER :
|
|
>[<+>[-]]<
|
|
|
|
SMALLER OR EQUALS :
|
|
+>>>[<<<->>>-]<<<
|
|
|
|
|
|
|
|
|
|
|
|
MUL :
|
|
=====
|
|
|
|
<[->>+<<]>[->[-<<+>>>+<]>[-<+>]<<]>[-]<<
|
|
|
|
|
|
|
|
DIV :
|
|
=====
|
|
|
|
[->+>>+<<<]
|
|
<[->+>>+<<<]
|
|
>>>
|
|
[>[->+>+<<]>>[-<<+>>]+<[>-<[-]]>[->+>+<<]>>[-<<+>>]<[<<<<[-]+>+>>>-]<<<-<-]+>[<->[-]]<
|
|
[
|
|
-<[-<->>+<]>[-<+>]
|
|
<<<+>
|
|
[->>+>+<<<]>>>[-<<<+>>>]<<
|
|
[->>+>+<<<]>>>[-<<<+>>>]<
|
|
<[>[->+>+<<]>>[-<<+>>]+<[>-<[-]]>[->+>+<<]>>[-<<+>>]<[<<<<[-]+>+>>>-]<<<-<-]>>>[<<<+>>>-]<<<
|
|
]
|
|
<[-]<[-]<
|