8 lines
635 B
Brainfuck
8 lines
635 B
Brainfuck
>
|
|
->,[.>,]>-<++++++[-<+[---------<+]->+[->+]-<]>+<-<+[-<+]>>+[-<[->++++++++++<]>>+]< takes input
|
|
>++++[->++++++++<]>.<+++++++[->++++++++++<]>+++.++++++++++.<+++++++++[->---------<]>--.[-]<< " is "
|
|
<->
|
|
[->+>+<<]>>-[+<[[->>+>>+<<<<]>>[-<<+>>]<]>>[->-[>+>>]>[+[-<+>]>>>]<<<<<]>[-]>[>+>]<<[-]+[-<+]->>>--] finds # of divisors from 1 to n
|
|
<[->+>+<<]>>>>>>>[-<<<<<->>>>>]<<<<<--
|
|
[>++++++++++[->+++++++++++<]>.+.+++++.>++++[->++++++++<]>.>] "not "
|
|
++++++++++[->+++++++++++<]>++.++.---------.++++.--------.>++++++++++. "prime" new line
|