28 lines
1.5 KiB
Brainfuck
28 lines
1.5 KiB
Brainfuck
|
#lang reader "reader.rkt"
|
||
|
|
||
|
0 1 2 3 4 5
|
||
|
(input 11)(input 12)(input 21)(input 22)(input 1 count)(input 2 count)
|
||
|
|
||
|
,------------------------------------------------ in 0; read input ; subtract ascii zero
|
||
|
[->>>>++++++++++<<<<] in 0; add 10 for each number in 0 to 4
|
||
|
> goto 1
|
||
|
,------------------------------------------------ in 1; read input ; subtract ascii zero
|
||
|
[->>>+<<<] in 1; add 1 for each number in 1 to 4
|
||
|
> goto 2
|
||
|
,------------------------------------------------ in 2; read input ; subtract ascii zero
|
||
|
[->>>++++++++++<<<] in 2; add 10 for each number in 2 to 5
|
||
|
> goto 3
|
||
|
,------------------------------------------------ in 3; read input ; subtract ascii zero
|
||
|
[->>+<<] in 3; add 1 for each number in 3 to 5
|
||
|
> goto 4
|
||
|
>[<+>-]< add each number in 5 to 4
|
||
|
|
||
|
>>++++++++++<<[->+>-[>+>>]>[+[-<+>]>+>>]<<<<<<]>> in cell 4 do N modulo 10
|
||
|
[-]>>>++++++++++<[->-[>+>>]>[+[-<+>]>+>>]<<<<<]> in cell 4 do N modulo 10
|
||
|
[-]>>[>++++++[-<++++++++>]<. print hundreds
|
||
|
<<+>+>[-]]<[<[->-<]++++++[->++++++++<]>.[-]] print tens
|
||
|
<<++++++[-<++++++++>]<. print ones
|
||
|
[-]<<[-<+>]< cleanup
|
||
|
|
||
|
testing data
|
||
|
!9999
|