Varatölutékk
Skilar T ef varatala er rétt annars F
=========

Setja upp margföldunarfasta og ílög
+++>,>>>
++>,>>>
+++++++>,>>>
++++++>,>>>
+++++>,>>>
++++>,>>>
+++>,>>>
++>,

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Breyta ascii ílögum í heiltölur
(Ef túlkur les ílög sem tölur má eyða þessum línum)
>[
----------
----------
----------
----------
--------
>>>>]

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Margfalda ílög og fasta
[
  [->[->+>+<<]>[-<+>]<<]
  >>>>
]

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Leggja saman margfeldi
[->>>>+<<<<]>>>>
[->>>>+<<<<]>>>>
[->>>>+<<<<]>>>>
[->>>>+<<<<]>>>>
[->>>>+<<<<]>>>>
[->>>>+<<<<]>>>>
[->>>>+<<<<]>>>>

mod 11 á summu
>>+++++++++++<< 11
[->+>-[>+>>]>[+[-<+>]>+>>]<<<<<<]
>>>

[->>+<<]>> Færum töluna framar í hreint minni

[ Ef talan er ekki 0 þá drögum við hana frá 11
  >+++++++++++<
  [->-<]
]> Varatala fundin

Ná í varatölu frá straumi
>,
----------
----------
----------
----------
--------

Drögum varatölurnar frá hvor annarri
<[->-<]>

Prenta út T ef þetta er sama talan annars F
[>>--------------<]>
++++++++++
++++++++++
++++++++++
++++++++++
++++++++++
++++++++++
++++++++++
++++++++++
++++
.
