123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222 |
- ===================================================================
- ======================== OUTPUT STRING ============================
- ===================================================================
- >++++++++[<++++++++>-]<++++++++++++++++.[-]
- >++++++++++[<++++++++++>-]<++++++++++++++.[-]
- >++++++++++[<++++++++++>-]<+++++.[-]
- >++++++++++[<++++++++++>-]<+++++++++.[-]
- >++++++++++[<++++++++++>-]<+.[-]
- >++++++++++[<++++++++++>-]<+++++++++++++++.[-]
- >+++++[<+++++>-]<+++++++.[-]
- >++++++++++[<++++++++++>-]<+++++++++++++++++.[-]
- >++++++++++[<++++++++++>-]<++++++++++++.[-]
- >+++++[<+++++>-]<+++++++.[-]
- >++++++++++[<++++++++++>-]<++++++++++++++++.[-]
- >++++++++++[<++++++++++>-]<+++++++++++.[-]
- >+++++++[<+++++++>-]<+++++++++.[-]
- >+++++[<+++++>-]<+++++++.[-]
- ===================================================================
- ======================== INPUT NUMBER ============================
- ===================================================================
- + cont=1
- [
- - cont=0
- >,
- ======SUB10======
- ----------
-
- [ not 10
- <+> cont=1
- =====SUB38======
- ----------
- ----------
- ----------
- --------
- >
- =====MUL10=======
- [>+>+<<-]>>[<<+>>-]< dup
- >>>+++++++++
- [
- <<<
- [>+>+<<-]>>[<<+>>-]< dup
- [<<+>>-]
- >>-
- ]
- <<<[-]<
- ======RMOVE1======
- <
- [>+<-]
- ]
- <
- ]
- >>[<<+>>-]<<
- ===================================================================
- ======================= PROCESS NUMBER ===========================
- ===================================================================
- ==== ==== ==== ====
- numd numu teid teiu
- ==== ==== ==== ====
- >+<-
- [
- >+
- ======DUP======
- [>+>+<<-]>>[<<+>>-]<
- >+<--
- >>>>>>>>+<<<<<<<< isprime=1
- [
- >+
- <-
- =====DUP3=====
- <[>>>+>+<<<<-]>>>>[<<<<+>>>>-]<<<
- =====DUP2=====
- >[>>+>+<<<-]>>>[<<<+>>>-]<<< <
- >>>
- ====DIVIDES=======
- [>+>+<<-]>>[<<+>>-]< DUP i=div
-
- <<
- [
- >>>>>+ bool=1
- <<<
- [>+>+<<-]>>[<<+>>-]< DUP
- [>>[-]<<-] IF i THEN bool=0
- >>
- [ IF i=0
- <<<<
- [>+>+<<-]>>[<<+>>-]< i=div
- >>>
- - bool=0
- ]
- <<<
- - DEC i
- <<
- -
- ]
-
- +>>[<<[-]>>-]<<
- >[-]< CLR div
- =====END DIVIDES====
- [>>>>>>[-]<<<<<<-] if divides then isprime=0
- <<
- >>[-]>[-]<<<
- ]
- >>>>>>>>
- [
- -
- <<<<<<<[-]<<
- [>>+>+<<<-]>>>[<<<+>>>-]<<<
- >>
- ===================================================================
- ======================== OUTPUT NUMBER ===========================
- ===================================================================
- [>+<-]>
-
- [
- ======DUP======
- [>+>+<<-]>>[<<+>>-]<
-
-
- ======MOD10====
- >+++++++++<
- [
- >>>+<< bool= 1
- [>+>[-]<<-] bool= ten==0
- >[<+>-] ten = tmp
- >[<<++++++++++>>-] if ten=0 ten=10
- <<- dec ten
- <- dec num
- ]
- +++++++++ num=9
- >[<->-]< dec num by ten
-
- =======RROT======
- [>+<-]
- < [>+<-]
- < [>+<-]
- >>>[<<<+>>>-]
- <
-
- =======DIV10========
- >+++++++++<
- [
- >>>+<< bool= 1
- [>+>[-]<<-] bool= ten==0
- >[<+>-] ten = tmp
- >[<<++++++++++>>>+<-] if ten=0 ten=10 inc div
- <<- dec ten
- <- dec num
- ]
- >>>>[<<<<+>>>>-]<<<< copy div to num
- >[-]< clear ten
-
- =======INC1=========
- <+>
- ]
-
- <
- [
- =======MOVER=========
- [>+<-]
-
- =======ADD48========
- +++++++[<+++++++>-]<->
-
- =======PUTC=======
- <.[-]>
-
- ======MOVEL2========
- >[<<+>>-]<
-
- <-
- ]
-
- >++++[<++++++++>-]<.[-]
-
- ===================================================================
- =========================== END FOR ===============================
- ===================================================================
- >>>>>>>
- ]
- <<<<<<<<
- >[-]<
- [-]
- <<-
- ]
-
- ======LF========
-
- ++++++++++.[-]
|