Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 223 lines (171 sloc) 4.121 kb
67a368e reorganizing
Danny Yoo authored
1 #lang planet dyoo/bf
d20c6b5 renaming
Danny Yoo authored
2 ===================================================================
3 ======================== OUTPUT STRING ============================
4 ===================================================================
5 >++++++++[<++++++++>-]<++++++++++++++++.[-]
6 >++++++++++[<++++++++++>-]<++++++++++++++.[-]
7 >++++++++++[<++++++++++>-]<+++++.[-]
8 >++++++++++[<++++++++++>-]<+++++++++.[-]
9 >++++++++++[<++++++++++>-]<+.[-]
10 >++++++++++[<++++++++++>-]<+++++++++++++++.[-]
11 >+++++[<+++++>-]<+++++++.[-]
12 >++++++++++[<++++++++++>-]<+++++++++++++++++.[-]
13 >++++++++++[<++++++++++>-]<++++++++++++.[-]
14 >+++++[<+++++>-]<+++++++.[-]
15 >++++++++++[<++++++++++>-]<++++++++++++++++.[-]
16 >++++++++++[<++++++++++>-]<+++++++++++.[-]
17 >+++++++[<+++++++>-]<+++++++++.[-]
18 >+++++[<+++++>-]<+++++++.[-]
19
20 ===================================================================
21 ======================== INPUT NUMBER ============================
22 ===================================================================
23 + cont=1
24 [
25 - cont=0
26 >,
27 ======SUB10======
28 ----------
29
30 [ not 10
31 <+> cont=1
32 =====SUB38======
33 ----------
34 ----------
35 ----------
36 --------
37
38 >
39 =====MUL10=======
40 [>+>+<<-]>>[<<+>>-]< dup
41
42 >>>+++++++++
43 [
44 <<<
45 [>+>+<<-]>>[<<+>>-]< dup
46 [<<+>>-]
47 >>-
48 ]
49 <<<[-]<
50 ======RMOVE1======
51 <
52 [>+<-]
53 ]
54 <
55 ]
56 >>[<<+>>-]<<
57
58 ===================================================================
59 ======================= PROCESS NUMBER ===========================
60 ===================================================================
61
62 ==== ==== ==== ====
63 numd numu teid teiu
64 ==== ==== ==== ====
65
66 >+<-
67 [
68 >+
69 ======DUP======
70 [>+>+<<-]>>[<<+>>-]<
71
72 >+<--
73
74 >>>>>>>>+<<<<<<<< isprime=1
75
76 [
77 >+
78
79 <-
80
81 =====DUP3=====
82 <[>>>+>+<<<<-]>>>>[<<<<+>>>>-]<<<
83
84 =====DUP2=====
85 >[>>+>+<<<-]>>>[<<<+>>>-]<<< <
86
87
88 >>>
89
90
91 ====DIVIDES=======
92 [>+>+<<-]>>[<<+>>-]< DUP i=div
93
94 <<
95 [
96 >>>>>+ bool=1
97 <<<
98 [>+>+<<-]>>[<<+>>-]< DUP
99 [>>[-]<<-] IF i THEN bool=0
100 >>
101 [ IF i=0
102 <<<<
103 [>+>+<<-]>>[<<+>>-]< i=div
104 >>>
105 - bool=0
106 ]
107 <<<
108 - DEC i
109 <<
110 -
111 ]
112
113 +>>[<<[-]>>-]<<
114 >[-]< CLR div
115 =====END DIVIDES====
116
117
118 [>>>>>>[-]<<<<<<-] if divides then isprime=0
119
120
121 <<
122
123 >>[-]>[-]<<<
124 ]
125
126 >>>>>>>>
127 [
128 -
129 <<<<<<<[-]<<
130
131 [>>+>+<<<-]>>>[<<<+>>>-]<<<
132
133 >>
134
135
136
137
138 ===================================================================
139 ======================== OUTPUT NUMBER ===========================
140 ===================================================================
141 [>+<-]>
142
143 [
144 ======DUP======
145 [>+>+<<-]>>[<<+>>-]<
146
147
148 ======MOD10====
149 >+++++++++<
150 [
151 >>>+<< bool= 1
152 [>+>[-]<<-] bool= ten==0
153 >[<+>-] ten = tmp
154 >[<<++++++++++>>-] if ten=0 ten=10
155 <<- dec ten
156 <- dec num
157 ]
158 +++++++++ num=9
159 >[<->-]< dec num by ten
160
161 =======RROT======
162 [>+<-]
163 < [>+<-]
164 < [>+<-]
165 >>>[<<<+>>>-]
166 <
167
168 =======DIV10========
169 >+++++++++<
170 [
171 >>>+<< bool= 1
172 [>+>[-]<<-] bool= ten==0
173 >[<+>-] ten = tmp
174 >[<<++++++++++>>>+<-] if ten=0 ten=10 inc div
175 <<- dec ten
176 <- dec num
177 ]
178 >>>>[<<<<+>>>>-]<<<< copy div to num
179 >[-]< clear ten
180
181 =======INC1=========
182 <+>
183 ]
184
185 <
186 [
187 =======MOVER=========
188 [>+<-]
189
190 =======ADD48========
191 +++++++[<+++++++>-]<->
192
193 =======PUTC=======
194 <.[-]>
195
196 ======MOVEL2========
197 >[<<+>>-]<
198
199 <-
200 ]
201
202 >++++[<++++++++>-]<.[-]
203
204 ===================================================================
205 =========================== END FOR ===============================
206 ===================================================================
207
208
209 >>>>>>>
210 ]
211 <<<<<<<<
212
213
214
215 >[-]<
216 [-]
217 <<-
218 ]
219
220 ======LF========
221
222 ++++++++++.[-]
Something went wrong with that request. Please try again.