Browse Source

Initial commit

Mike Schwörer 3 years ago
commit
5c8dcafc31

+ 12
- 0
ConcatenateNumbers.b93 View File

@@ -0,0 +1,12 @@
1
+vX         // Concatenates two numbers ( 648 o 120  = 648120 )
2
+
3
+
4
+                                  >55+*\:v
5
+>  989**       2345***     \10p:10 g>\:#v_$+  @
6
+                                  ^\/+55<
7
+
8
+
9
+[1, 0] temp
10
+   
11
+
12
+[stack, stack]   -> [stack]

+ 11
- 0
DecodeBase9-2.b93 View File

@@ -0,0 +1,11 @@
1
+v      ##########   v     $2<>v    >>#$>#<  @
2
+> 9:*: #  1745  #   >:9`!>#v_vv>   0>\:9`|
3
+       ##########   v93+"0"<##      ^+*9\<
4
+                    >*0g:1+v $
5
+                    v8p0*39<p
6
+                    >6*-56*\^
7
+                    v9*65">^"<
8
+                             #
9
+                    >3*0g"0"vp
10
+                    v+*651p-<-
11
+                    >93*0g"0"^

+ 3
- 0
DecodeBase9.b93 View File

@@ -0,0 +1,3 @@
1
+v      ########## >>#$>#<  @
2
+>  9:* ## 5471 ## 0>\:9`|
3
+       ##########  ^+*9\<

+ 13
- 0
Exponentiation.b93 View File

@@ -0,0 +1,13 @@
1
+2^(9+1)
2
+
3
+9  1>2# *#\\#-:#1_$  @
4
+
5
+
6
+2^(4+1)
7
+
8
+4  1>2# *#\\#-:#1_$  @
9
+
10
+
11
+5^(2+1)
12
+
13
+2  1>5# *#\\#-:#1_$  @

+ 14
- 0
FacDigitSum.b93 View File

@@ -0,0 +1,14 @@
1
+v      X ##########
2
+                                                      >:55+%9+0v
3
+>070p1>:70g:1+70p9+0v        >        999**        0\:|:/+55\g <
4
+      |-+55g07*g07p <                                 >$>\# :#+_+   @
5
+      >$                     ^                           
6
+
7
+
8
+
9
+[7,  0] (factorial) index
10
+[9+, 0] Array factorials (0-9)
11
+
12
+// stack --> stack
13
+
14
+// => SUM of factorial of digits

+ 7
- 0
GenerateRandom.b93 View File

@@ -0,0 +1,7 @@
1
+v              ,,+49+55  <
2
+v      >>v               .
3
+v      21v      >>#$>#<  ^
4
+> 59>#v?^>\1-:#v_>\:4`|
5
+      3>0^       ^+*4\<
6
+    ^          <
7
+      >  ^

+ 4
- 0
GenerateRandom_compressed.b93 View File

@@ -0,0 +1,4 @@
1
+v >v >>>v
2
+  ^$$123    <>>#$>#<.@
3
+>59>#^?^    ^_>\:4`|
4
+      >0>\1-:^^+*4\<

+ 37
- 0
GetCombinatoricHash.b93 View File

@@ -0,0 +1,37 @@
1
+v                   
2
+                             
3
+                             
4
+                             
5
+>  "!!!"**                 0\v   v\-1 <
6
+                        v+55:<>\1>9*\:|
7
+                        >%\:#^|#/+55\$<  
8
+                       >$ #\>#<>\# :#+_+        .@
9
+
10
+
11
+
12
+
13
+
14
+
15
+Calculates a combinatoric hash value (the digit order is ignored).
16
+hash = 9^1 * amountOf(0)
17
+     + 9^2 * amountOf(1)
18
+     + 9^3 * amountOf(2)
19
+     + 9^4 * amountOf(3)
20
+     + ...
21
+
22
+(stack) -> (stack)
23
+
24
+
25
+uses no [get] or [put]
26
+
27
+
28
+long GetCubeHash(long value)
29
+{
30
+	long sum = 0;
31
+	while (value > 0)
32
+	{
33
+		sum += (long)Math.Pow((long)9, (1 + value%10));
34
+		value /= 10;
35
+	}
36
+	return sum;
37
+}

+ 1
- 0
HelloWorld.b93 View File

@@ -0,0 +1 @@
1
+0"!dlroW olleH">:#,_$@

+ 1
- 0
HelloWorld_obfuscated.b93 View File

@@ -0,0 +1 @@
1
+0> :# :# 2# 9# *# \#+`#1_1+"@"\0p"_"\0p894*+\0p57*\0p496*+\0p896*+\0p1"!"+\0p89*\0p"e"\0p26*9*\0p26*9*\0p"o"\0p48*\0p39*2+3*\0p"o"\0p29*1+6*\0p26*9*\0p45*5*\0p693*+\0p1"!"+\0p

+ 3
- 0
Improbable.b93 View File

@@ -0,0 +1,3 @@
1
+v   v<<#<<#<<#<<#<<#<<#<<#<<#<<#<<#<<#<<#<<#<<
2
+>  0>1+#v?#v?#v?#v?#v?#v?#v?#v?#v?#v?#v?#v?#v? . @
3
+    ^<<#<<#<<#<<#<<#<<#<<#<<#<<#<<#<<#<<#<<#<<

+ 134
- 0
Miller-Rabin primality test (big).b93 View File

@@ -0,0 +1,134 @@
1
+v     works for    23 < n < 3,825,123,056,546,413,051
2
+ 
3
+
4
+
5
+  v                                                                                                              <<
6
+7                                                                                                                ,
7
+4                                        >             >             >      >$0v                                 +
8
+*                                               >             >              $1v                                 5
9
+> >1+:                              :2\`#^_:2-!#^_:2%!#^_:9\`#^_:3%!#^_:5%!#^_1 :v                               5
10
+                                  v_v#+%3\`\4::_v#+%2\`\3::p13:+1g13<:_v#-+*<    3                               .
11
+                                  :>>           >                  $^       2    1
12
+                                  :|                                        9    p
13
+                                  6>\:11p1-0\>:2% !#v_v    v ++!!+1-g< #    ^5<  <                               :
14
+                                  \#         ^\+1\/2< \    >3-#v_$$  1>31g\  !|>                                 |
15
+                                  `! vp01p03p04 g11p12<        >:*11v1 >$1   #$^                                 >^
16
+                                  \  >120pv        v%g04*<v-1\    %g<^ \!!-1:<$0 
17
+                                  5  vg030<  v-1\  < >10g^   >\:::*11  g%1-!\^>^ 
18
+                                  %      >$1\> :#v_ $ 21g >:#^_$1-!!  ^
19
+                                  +  >:!#^_\1+\2v\ ^_^#!%2/\g03p<
20
+                                  >^ ^p02*2g02/ <>:*40g%20g2/:20^
21
+
22
+
23
+
24
+
25
+[1, 0] modExp :: a
26
+[2, 0] modExp :: bi
27
+[3, 0] modExp :: b
28
+[4, 0] modExp :: n
29
+
30
+[1, 1] witness :: n
31
+[2, 1] witness :: t
32
+
33
+[3, 1] isMRPrime :: a
34
+
35
+// http://en.wikipedia.org/wiki/Miller-Rabin_primality_test
36
+
37
+// ModularExp     [a, b, n] -> result
38
+
39
+
40
+>>>    40p30p10pv      v%g04*<
41
+        v030p021<v-1\  < >10g^  
42
+        g    >$1\> :#v_ $                    >>>
43
+        >>:!#^_\1+\2v\ ^_^#!%2/\g03p<
44
+         ^p02*2g02/ <>:*40g%20g2/:20^
45
+
46
+
47
+
48
+// Witness       [a, n] -> result
49
+
50
+>>>    :11p1-0\>:2% !#v_vv1-g11\!-1:\!-< 
51
+               ^\+1\/2< \>+!++3-#v_$$  1>     >>>
52
+       vp01p03p04 g11p12<        >:*11v% 
53
+       >120pv        v%g04*<v-1\    %g<g 
54
+       vg030<  v-1\  < >10g^   >\:::*11^ 
55
+           >$1\> :#v_ $ 21g >:#^_$1-!!  ^
56
+       >:!#^_\1+\2v\ ^_^#!%2/\g03p<
57
+       ^p02*2g02/ <>:*40g%20g2/:20^
58
+
59
+
60
+
61
+
62
+//#############################################################################
63
+
64
+bool isMRPrime(int n) 
65
+{
66
+	if (n <= 1)     return false;
67
+	if (n == 2)     return true;
68
+	if (n % 2 == 0) return false;
69
+	if (n < 9)      return true;
70
+	if (n % 3 == 0) return false;
71
+	if (n % 5 == 0) return false;
72
+
73
+	//  correct for n < 3,825,123,056,546,413,051
74
+	if (Witness(2, n)) return false;
75
+	if (Witness(3, n)) return false;
76
+	if (Witness(5, n)) return false;
77
+	if (Witness(7, n)) return false;
78
+	if (Witness(11, n)) return false;
79
+	if (Witness(13, n)) return false;
80
+	if (Witness(17, n)) return false;
81
+	if (Witness(19, n)) return false;
82
+	if (Witness(23, n)) return false;
83
+		
84
+	return true;
85
+}
86
+
87
+
88
+bool Witness(int a, int n) 
89
+{
90
+	int t = 0;
91
+	int u = n - 1;
92
+	while (u % 2 == 0) 
93
+	{
94
+		t++;
95
+		u /= 2;
96
+	}
97
+
98
+	long xi1 = ModularExp(a, u, n);
99
+	
100
+	for (; t > 0; t--) 
101
+	{
102
+		if (((xi1 * xi1) % n == 1) && (xi1 != 1) && (xi1 != (n - 1))) return true;
103
+		xi1 = (xi1 * xi1) % n;
104
+	}
105
+	
106
+	if (xi1 != 1) return true;
107
+	return false;
108
+}
109
+
110
+
111
+long ModularExp(int a, int b, int n) // (a^b) % n
112
+{
113
+	int k = 0;
114
+	int bt = b;
115
+	int bi = 1;
116
+	while (bt > 0) 
117
+	{
118
+		k++;
119
+		bt /= 2;
120
+		bi *= 2;
121
+	}
122
+
123
+	long d = 1;
124
+	
125
+	for (k--; k >= 0; k--) 
126
+	{
127
+		d = (d * d) % n;
128
+		bi /= 2;
129
+		
130
+		if (((b / bi) % 2) > 0) d = (d * a) % n;
131
+	}
132
+
133
+	return d;
134
+}

+ 124
- 0
Miller-Rabin primality test.b93 View File

@@ -0,0 +1,124 @@
1
+v     works for    0 < n < 1,373,653
2
+ 
3
+
4
+
5
+  v                                                                                                              <<
6
+                                                                                                                 ,
7
+                                         >             >             >      >$0v                                 +
8
+                                                >             >              $1v                                 5
9
+>0>1+:                              :2\`#^_:2-!#^_:2%!#^_:9\`#^_:3%!#^_:5%!#^_1 :v                               5
10
+                                    v\                      p13:+1g13:_v#-3 <p1 3<                               .
11
+                                    >:11p1-0\>:2% !#v_v    v ++!!+1-g< #    ^ <                                  :
12
+                                             ^\+1\/2< \    >3-#v_$$  1>31g\  !|>                                 |
                                     vp01p03p04 g11p12<        >:*11v1 >$1   #$^                                 >^
13
+                                     >120pv        v%g04*<v-1\    %g<^ \!!-1:<$0 
14
+                                     vg030<  v-1\  < >10g^   >\:::*11  g%1-!\^>^ 
15
+                                         >$1\> :#v_ $ 21g >:#^_$1-!!  ^
16
+                                     >:!#^_\1+\2v\ ^_^#!%2/\g03p<
17
+                                     ^p02*2g02/ <>:*40g%20g2/:20^
18
+
19
+
20
+
21
+
22
+[1, 0] modExp :: a
23
+[2, 0] modExp :: bi
24
+[3, 0] modExp :: b
25
+[4, 0] modExp :: n
26
+
27
+[1, 1] witness :: n
28
+[2, 1] witness :: t
29
+
30
+[3, 1] isMRPrime :: a
31
+
32
+// http://en.wikipedia.org/wiki/Miller-Rabin_primality_test
33
+
34
+// ModularExp     [a, b, n] -> result
35
+
36
+
37
+>>>    40p30p10pv      v%g04*<
38
+        v030p021<v-1\  < >10g^  
39
+        g    >$1\> :#v_ $                    >>>
40
+        >>:!#^_\1+\2v\ ^_^#!%2/\g03p<
41
+         ^p02*2g02/ <>:*40g%20g2/:20^
42
+
43
+
44
+
45
+// Witness       [a, n] -> result
46
+
47
+>>>    :11p1-0\>:2% !#v_vv1-g11\!-1:\!-< 
48
+               ^\+1\/2< \>+!++3-#v_$$  1>     >>>
49
+       vp01p03p04 g11p12<        >:*11v% 
50
+       >120pv        v%g04*<v-1\    %g<g 
51
+       vg030<  v-1\  < >10g^   >\:::*11^ 
52
+           >$1\> :#v_ $ 21g >:#^_$1-!!  ^
53
+       >:!#^_\1+\2v\ ^_^#!%2/\g03p<
54
+       ^p02*2g02/ <>:*40g%20g2/:20^
55
+
56
+
57
+
58
+
59
+//#############################################################################
60
+
61
+bool isMRPrime(int n) 
62
+{
63
+	if (n <= 1)     return false;
64
+	if (n == 2)     return true;
65
+	if (n % 2 == 0) return false;
66
+	if (n < 9)      return true;
67
+	if (n % 3 == 0) return false;
68
+	if (n % 5 == 0) return false;
69
+
70
+	//  correct for n < 1,373,653
71
+	if (Witness(2, n)) return false;
72
+	if (Witness(3, n)) return false;
73
+		
74
+	return true;
75
+}
76
+
77
+
78
+bool Witness(int a, int n) 
79
+{
80
+	int t = 0;
81
+	int u = n - 1;
82
+	while (u % 2 == 0) 
83
+	{
84
+		t++;
85
+		u /= 2;
86
+	}
87
+
88
+	long xi1 = ModularExp(a, u, n);
89
+	
90
+	for (; t > 0; t--) 
91
+	{
92
+		if (((xi1 * xi1) % n == 1) && (xi1 != 1) && (xi1 != (n - 1))) return true;
93
+		xi1 = (xi1 * xi1) % n;
94
+	}
95
+	
96
+	if (xi1 != 1) return true;
97
+	return false;
98
+}
99
+
100
+
101
+long ModularExp(int a, int b, int n) // (a^b) % n
102
+{
103
+	int k = 0;
104
+	int bt = b;
105
+	int bi = 1;
106
+	while (bt > 0) 
107
+	{
108
+		k++;
109
+		bt /= 2;
110
+		bi *= 2;
111
+	}
112
+
113
+	long d = 1;
114
+	
115
+	for (k--; k >= 0; k--) 
116
+	{
117
+		d = (d * d) % n;
118
+		bi /= 2;
119
+		
120
+		if (((b / bi) % 2) > 0) d = (d * a) % n;
121
+	}
122
+
123
+	return d;
124
+}

+ 18
- 0
Primetest.b93 View File

@@ -0,0 +1,18 @@
1
+4 >:               :2%!#v_v >10g\%!#v_:10g2/`!#v_$               :.  55+,v     // only for primes > 3
2
+  +                 v%3:>#<#^ #<    >            $                       v 
3
+  1                 > !#^_10p7:^:+6_^#%\g01-2: <                          
4
+                                                                          
5
+                                                                          
6
+                                                                          
7
+  ^                                                                      <
8
+
9
+
10
+
11
+
12
+
13
+stack  ->  stack                 // only for primes > 3
14
+
15
+
16
+:2%!#v_v >10g\%!#v_:10g2/`!#v_$    1    @
17
+ v%3:>#<#^ #<    >            $    0    @
18
+ > !#^_10p7:^:+6_^#%\g01-2: <  

+ 115
- 0
RandomChess-2.b93 View File

@@ -0,0 +1,115 @@
1
+v
2
+  v<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
3
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
4
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
5
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
6
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
7
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
8
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
9
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
10
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
11
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
12
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
13
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
14
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
15
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
16
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
17
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
18
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
19
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
20
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
21
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
22
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
23
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
24
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
25
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
26
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
27
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
28
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
29
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
30
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
31
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
32
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
33
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
34
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
35
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
36
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
37
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
38
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
39
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
40
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
41
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
42
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
43
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
44
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
45
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
46
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
47
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
48
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
49
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
50
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
51
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
52
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
53
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
54
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
55
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
56
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^
57
+  v????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????^  <
58
+>0>????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????1+>?<
59
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v  <
60
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
61
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
62
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
63
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
64
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
65
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
66
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
67
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
68
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
69
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
70
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
71
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
72
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
73
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
74
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
75
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
76
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
77
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
78
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
79
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
80
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
81
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
82
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
83
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
84
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
85
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
86
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
87
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
88
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
89
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
90
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
91
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
92
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
93
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
94
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
95
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
96
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
97
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
98
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
99
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
100
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
101
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
102
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
103
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
104
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
105
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
106
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
107
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
108
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
109
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
110
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
111
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
112
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
113
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
114
+  ^????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????v
115
+  ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

+ 105
- 0
RandomChess.b93 View File

@@ -0,0 +1,105 @@
1
+v
2
+
3
+   @vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv@
4
+   >???????????????????????????????????????????????????????????????????????????????????????????<
5
+   >???????????????????????????????????????????????????????????????????????????????????????????<
6
+   >???????????????????????????????????????????????????????????????????????????????????????????<
7
+   >???????????????????????????????????????????????????????????????????????????????????????????<
8
+   >???????????????????????????????????????????????????????????????????????????????????????????<
9
+   >???????????????????????????????????????????????????????????????????????????????????????????<
10
+   >???????????????????????????????????????????????????????????????????????????????????????????<
11
+   >???????????????????????????????????????????????????????????????????????????????????????????<
12
+   >???????????????????????????????????????????????????????????????????????????????????????????<
13
+   >???????????????????????????????????????????????????????????????????????????????????????????<
14
+   >???????????????????????????????????????????????????????????????????????????????????????????<
15
+   >???????????????????????????????????????????????????????????????????????????????????????????<
16
+   >???????????????????????????????????????????????????????????????????????????????????????????<
17
+   >???????????????????????????????????????????????????????????????????????????????????????????<
18
+   >???????????????????????????????????????????????????????????????????????????????????????????<
19
+   >???????????????????????????????????????????????????????????????????????????????????????????<
20
+   >???????????????????????????????????????????????????????????????????????????????????????????<
21
+   >???????????????????????????????????????????????????????????????????????????????????????????<
22
+   >???????????????????????????????????????????????????????????????????????????????????????????<
23
+   >???????????????????????????????????????????????????????????????????????????????????????????<
24
+   >???????????????????????????????????????????????????????????????????????????????????????????<
25
+   >???????????????????????????????????????????????????????????????????????????????????????????<
26
+   >???????????????????????????????????????????????????????????????????????????????????????????<
27
+   >???????????????????????????????????????????????????????????????????????????????????????????<
28
+   >???????????????????????????????????????????????????????????????????????????????????????????<
29
+   >???????????????????????????????????????????????????????????????????????????????????????????<
30
+   >???????????????????????????????????????????????????????????????????????????????????????????<
31
+   >???????????????????????????????????????????????????????????????????????????????????????????<
32
+   >???????????????????????????????????????????????????????????????????????????????????????????<
33
+   >???????????????????????????????????????????????????????????????????????????????????????????<
34
+   >???????????????????????????????????????????????????????????????????????????????????????????<
35
+   >???????????????????????????????????????????????????????????????????????????????????????????<
36
+   >???????????????????????????????????????????????????????????????????????????????????????????<
37
+   >???????????????????????????????????????????????????????????????????????????????????????????<
38
+   >???????????????????????????????????????????????????????????????????????????????????????????<
39
+   >???????????????????????????????????????????????????????????????????????????????????????????<
40
+   >???????????????????????????????????????????????????????????????????????????????????????????<
41
+   >???????????????????????????????????????????????????????????????????????????????????????????<
42
+   >???????????????????????????????????????????????????????????????????????????????????????????<
43
+   >???????????????????????????????????????????????????????????????????????????????????????????<
44
+   >???????????????????????????????????????????????????????????????????????????????????????????<
45
+   >???????????????????????????????????????????????????????????????????????????????????????????<
46
+   >???????????????????????????????????????????????????????????????????????????????????????????<
47
+   >???????????????????????????????????????????????????????????????????????????????????????????<
48
+   >???????????????????????????????????????????????????????????????????????????????????????????<
49
+   >???????????????????????????????????????????????????????????????????????????????????????????<
50
+   >???????????????????????????????????????????????????????????????????????????????????????????<
51
+   >???????????????????????????????????????????????????????????????????????????????????????????<
52
+>  >???????????????????????????????????????????????????????????????????????????????????????????@
53
+   >???????????????????????????????????????????????????????????????????????????????????????????<
54
+   >???????????????????????????????????????????????????????????????????????????????????????????<
55
+   >???????????????????????????????????????????????????????????????????????????????????????????<
56
+   >???????????????????????????????????????????????????????????????????????????????????????????<
57
+   >???????????????????????????????????????????????????????????????????????????????????????????<
58
+   >???????????????????????????????????????????????????????????????????????????????????????????<
59
+   >???????????????????????????????????????????????????????????????????????????????????????????<
60
+   >???????????????????????????????????????????????????????????????????????????????????????????<
61
+   >???????????????????????????????????????????????????????????????????????????????????????????<
62
+   >???????????????????????????????????????????????????????????????????????????????????????????<
63
+   >???????????????????????????????????????????????????????????????????????????????????????????<
64
+   >???????????????????????????????????????????????????????????????????????????????????????????<
65
+   >???????????????????????????????????????????????????????????????????????????????????????????<
66
+   >???????????????????????????????????????????????????????????????????????????????????????????<
67
+   >???????????????????????????????????????????????????????????????????????????????????????????<
68
+   >???????????????????????????????????????????????????????????????????????????????????????????<
69
+   >???????????????????????????????????????????????????????????????????????????????????????????<
70
+   >???????????????????????????????????????????????????????????????????????????????????????????<
71
+   >???????????????????????????????????????????????????????????????????????????????????????????<
72
+   >???????????????????????????????????????????????????????????????????????????????????????????<
73
+   >???????????????????????????????????????????????????????????????????????????????????????????<
74
+   >???????????????????????????????????????????????????????????????????????????????????????????<
75
+   >???????????????????????????????????????????????????????????????????????????????????????????<
76
+   >???????????????????????????????????????????????????????????????????????????????????????????<
77
+   >???????????????????????????????????????????????????????????????????????????????????????????<
78
+   >???????????????????????????????????????????????????????????????????????????????????????????<
79
+   >???????????????????????????????????????????????????????????????????????????????????????????<
80
+   >???????????????????????????????????????????????????????????????????????????????????????????<
81
+   >???????????????????????????????????????????????????????????????????????????????????????????<
82
+   >???????????????????????????????????????????????????????????????????????????????????????????<
83
+   >???????????????????????????????????????????????????????????????????????????????????????????<
84
+   >???????????????????????????????????????????????????????????????????????????????????????????<
85
+   >???????????????????????????????????????????????????????????????????????????????????????????<
86
+   >???????????????????????????????????????????????????????????????????????????????????????????<
87
+   >???????????????????????????????????????????????????????????????????????????????????????????<
88
+   >???????????????????????????????????????????????????????????????????????????????????????????<
89
+   >???????????????????????????????????????????????????????????????????????????????????????????<
90
+   >???????????????????????????????????????????????????????????????????????????????????????????<
91
+   >???????????????????????????????????????????????????????????????????????????????????????????<
92
+   >???????????????????????????????????????????????????????????????????????????????????????????<
93
+   >???????????????????????????????????????????????????????????????????????????????????????????<
94
+   >???????????????????????????????????????????????????????????????????????????????????????????<
95
+   >???????????????????????????????????????????????????????????????????????????????????????????<
96
+   >???????????????????????????????????????????????????????????????????????????????????????????<
97
+   >???????????????????????????????????????????????????????????????????????????????????????????<
98
+   >???????????????????????????????????????????????????????????????????????????????????????????<
99
+   >???????????????????????????????????????????????????????????????????????????????????????????<
100
+   >???????????????????????????????????????????????????????????????????????????????????????????<
101
+   >???????????????????????????????????????????????????????????????????????????????????????????<
102
+   >???????????????????????????????????????????????????????????????????????????????????????????<
103
+   >???????????????????????????????????????????????????????????????????????????????????????????<
104
+   >???????????????????????????????????????????????????????????????????????????????????????????<
105
+   @^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@

+ 65
- 0
Sieve-Of-Eratosthenes-with-collector.b93 View File

@@ -0,0 +1,65 @@
1
+v00000     // Sieve Of Erastothenes (with collector)
2
+########################################################################################################################################################################################################
3
+########################################################################################################################################################################################################
4
+########################################################################################################################################################################################################
5
+########################################################################################################################################################################################################
6
+########################################################################################################################################################################################################
7
+########################################################################################################################################################################################################
8
+########################################################################################################################################################################################################
9
+########################################################################################################################################################################################################
10
+########################################################################################################################################################################################################
11
+########################################################################################################################################################################################################
12
+########################################################################################################################################################################################################
13
+########################################################################################################################################################################################################
14
+########################################################################################################################################################################################################
15
+########################################################################################################################################################################################################
16
+########################################################################################################################################################################################################
17
+########################################################################################################################################################################################################
18
+########################################################################################################################################################################################################
19
+########################################################################################################################################################################################################
20
+########################################################################################################################################################################################################
21
+########################################################################################################################################################################################################
22
+########################################################################################################################################################################################################
23
+########################################################################################################################################################################################################
24
+########################################################################################################################################################################################################
25
+########################################################################################################################################################################################################
26
+########################################################################################################################################################################################################
27
+########################################################################################################################################################################################################
28
+########################################################################################################################################################################################################
29
+########################################################################################################################################################################################################
30
+########################################################################################################################################################################################################
31
+########################################################################################################################################################################################################
32
+########################################################################################################################################################################################################
33
+########################################################################################################################################################################################################
34
+########################################################################################################################################################################################################
35
+########################################################################################################################################################################################################
36
+########################################################################################################################################################################################################
37
+########################################################################################################################################################################################################
38
+########################################################################################################################################################################################################
39
+########################################################################################################################################################################################################
40
+########################################################################################################################################################################################################
41
+########################################################################################################################################################################################################
42
+########################################################################################################################################################################################################
43
+########################################################################################################################################################################################################
44
+########################################################################################################################################################################################################
45
+########################################################################################################################################################################################################
46
+########################################################################################################################################################################################################
47
+########################################################################################################################################################################################################
48
+########################################################################################################################################################################################################
49
+########################################################################################################################################################################################################
50
+########################################################################################################################################################################################################
51
+########################################################################################################################################################################################################
52
+                                                                           
53
+>"d"2*:10p"2":20p*40p230p" ":01p11pv                           >030p    0>::10g%\10g/1+g"X"-#v_:30g:1+30p:v
54
+v                                  <                          _^#`g03g04<|-g04:+1            <p+1/g01\%g01<
55
+>"X"30g:10g%\10g/1+p30g>30g+:40g\`       #v_$>30g1+:30p:10g%\10g/1+g" "-|>$30g50p@ 
56
+                       ^p+1/g01\%g01:\" ":<  ^                          <  
57
+
58
+
59
+
60
+
61
+[10] width        200      "d"2*
62
+[20] height       50       "2"
63
+[30] position     0        (initial 0)
64
+[40] size         10000    (automatic)
65
+[50] prime count  ?        (calculated)

+ 64
- 0
Sieve-Of-Eratosthenes.b93 View File

@@ -0,0 +1,64 @@
1
+v0000      // Sieve Of Erastothenes
2
+########################################################################################################################################################################################################
3
+########################################################################################################################################################################################################
4
+########################################################################################################################################################################################################
5
+########################################################################################################################################################################################################
6
+########################################################################################################################################################################################################
7
+########################################################################################################################################################################################################
8
+########################################################################################################################################################################################################
9
+########################################################################################################################################################################################################
10
+########################################################################################################################################################################################################
11
+########################################################################################################################################################################################################
12
+########################################################################################################################################################################################################
13
+########################################################################################################################################################################################################
14
+########################################################################################################################################################################################################
15
+########################################################################################################################################################################################################
16
+########################################################################################################################################################################################################
17
+########################################################################################################################################################################################################
18
+########################################################################################################################################################################################################
19
+########################################################################################################################################################################################################
20
+########################################################################################################################################################################################################
21
+########################################################################################################################################################################################################
22
+########################################################################################################################################################################################################
23
+########################################################################################################################################################################################################
24
+########################################################################################################################################################################################################
25
+########################################################################################################################################################################################################
26
+########################################################################################################################################################################################################
27
+########################################################################################################################################################################################################
28
+########################################################################################################################################################################################################
29
+########################################################################################################################################################################################################
30
+########################################################################################################################################################################################################
31
+########################################################################################################################################################################################################
32
+########################################################################################################################################################################################################
33
+########################################################################################################################################################################################################
34
+########################################################################################################################################################################################################
35
+########################################################################################################################################################################################################
36
+########################################################################################################################################################################################################
37
+########################################################################################################################################################################################################
38
+########################################################################################################################################################################################################
39
+########################################################################################################################################################################################################
40
+########################################################################################################################################################################################################
41
+########################################################################################################################################################################################################
42
+########################################################################################################################################################################################################
43
+########################################################################################################################################################################################################
44
+########################################################################################################################################################################################################
45
+########################################################################################################################################################################################################
46
+########################################################################################################################################################################################################
47
+########################################################################################################################################################################################################
48
+########################################################################################################################################################################################################
49
+########################################################################################################################################################################################################
50
+########################################################################################################################################################################################################
51
+########################################################################################################################################################################################################
52
+                                                                           
53
+>"d"2*:10p"2":20p*40p230p" ":01p11pv                           >030p         @
54
+v                                  <                          _^#`g03g04<  
55
+>"X"30g:10g%\10g/1+p30g>30g+:40g\`       #v_$>30g1+:30p:10g%\10g/1+g" "-|  
56
+                       ^p+1/g01\%g01:\" ":<  ^                          <  
57
+
58
+
59
+
60
+
61
+[10] width      200      "d"2*
62
+[20] height     50       "2"
63
+[30] position   0        (initial 0)
64
+[40] size       10000    (automatic)

+ 11
- 0
StackReverse.b93 View File

@@ -0,0 +1,11 @@
1
+v      ##########   v     $2<>v
2
+>  9:* #  1248  #   >:9`!>#v_vv>   @
3
+       ##########   v93+"0"<##
4
+                    >*0g:1+v $
5
+                    v8p0*39<p
6
+                    >6*-56*\^
7
+                    v9*65">^"<
8
+                             #
9
+                    >3*0g"0"vp
10
+                    v+*651p-<-
11
+                    >93*0g"0"^

+ 29
- 0
Windmill.b93 View File

@@ -0,0 +1,29 @@
1
+0".omed s"v
2
+          "                       >v
3
+          i                        8
4
+                                   4
5
+          s             >       > ^*
6
+          i    >99+0g1+#^_77+0g#^_188+0p099+0p>  v
7
+          h    ^        <          #            <
8
+          T    >88+0g1+#^_66+0g#^_088+0p01-99+0p^
9
+          "    ^        <         <#             #<
10
+>         v    >99+0g1-#^_77+0g8-#^_01-88+0p099+0p^
11
+|   >#:>#,<    ^        <         <#            <2
12
+               >88+0g1-#^_66+0g8-#^_088+0p199+0p^2
13
+>0>:"#"\0p:5 v ^                   $             g
14
+v_^#!\+1\!`+4< ^p0+77+g0+99g0+77<  >66+0g1+v     v
15
+>1-:"#"\v      >66+0g88+0g+66+0p^  v+1g0+77<     8
16
+|`0:p+19<      ^                   g             4
17
+>:"#"\0\p:v>   ^<                  -             *
18
+|\+1\!`+45<^p0+<               v" "_"@"v         -
19
+>1-:"#"\ v>p099^^     <        >66+v+66<         #
20
+|`0:p\+19<^0+88<^      p+1g0+77+1g0<       >" " #< v
21
+$>-66+0p077+0p1^ vp+2g0+67+2g0+56 < pp0+67:0+560<|#<
22
+01               :    #    v    p0 +76+1g< >"#" #< ^
23
+>^               >65+0g6- #v_01-65+0p67+0^
24
+                      ^ $ <>76+0gv#
25
+                          ^     <> 7-v
26
+                                ^_v#!<
27
+                                  #
28
+                           >+56+0p^
29
+                           ^1g0+56<

+ 6
- 0
calcBase4Random.b93 View File

@@ -0,0 +1,6 @@
1
+v
2
+v                        v       <
3
+v          #######       -  >0v  1                 >v
4
+> 9        ## 3 ##       >#v?1>\:|>           >\:4`|>$    @
5
+           #######         > 2^  |            ^+*4\<
6
+                            >3^  >^

+ 34
- 0
continued_squareroot_fraction.b93 View File

@@ -0,0 +1,34 @@
1
+v###
2
+ #####
3
+
4
+
5
+          v+1                                                                                                 ,++55<
6
+
7
+
8
+>       2 >::." =: ",,,,  0\                      951p11p021p131v      v12g14    p150 p13/g<
9
+                                                  vp01g03_v#-g01:_v#- <>g+31g/ :31g*21g-21v1
10
+                                                  >:30p:20 g\/+2/: 30g^^12p14:<>11g21g:*-3 ^
11
+                                                          >    #$ >$30g::*11g-||+g15-1g13p<
12
+                                                  ^p02:p010g11p1<             >>                              >.:! |
13
+                                                                                                              ^," "<
14
+
15
+
16
+
17
+ [10] (isqrt) pxk
18
+ [20] (isqrt) n
19
+ [30] (isqrt) xk
20
+
21
+ [11] (frac) sqrt
22
+ [21] (frac) add
23
+ [31] (frac) div
24
+ [41] (frac) isqrt(sqrt)
25
+ [51] (frac) first (9 when first loop)
26
+
27
+
28
+
29
+square-root continued fractions   ::    a        -->  frac(a)       // reversed on stack
30
+                                        (stack)  -->  (stack[])
31
+
32
+
33
+
34
+[http://www.maths.surrey.ac.uk/hosted-sites/R.Knott/Fibonacci/cfINTRO.html#section7]

+ 35
- 0
gnome_sort.b93 View File

@@ -0,0 +1,35 @@
1
+v 
2
+
3
+################################
4
+
5
+
6
+      >>>v
7
+      012>v
8
+      ^? 3v                                      v+1 <                     <
9
+>0>:  >??4>   "0"+\2p1+:" "-#v_$    " "10p      0>:!#^_:10g-!#v_::1-2g\2g`!|
10
+  ^   v? 5^                  v                   ^p2\g02:-1p2\ g2-1::p02g2:<
11
+  ^   678>^                  v                                $
12
+  ^   >>>^                   v                                @
13
+  ^                          v
14
+  ^<<<<<<<<<<<<<<<<<<<<<<<<<<<
15
+
16
+[10] arr-size
17
+[20] tmp
18
+
19
+---------------------------------------
20
+
21
+GNOME SORT
22
+==========
23
+
24
+
25
+/// http://www.dickgrune.com/Programs/gnomesort.html
26
+void gnomesort(int n, int ar[]) 
27
+{
28
+    int i = 0;
29
+    
30
+    while (i < n) 
31
+    {
32
+        if (i == 0 || ar[i-1] <= ar[i]) i++;
33
+        else {int tmp = ar[i]; ar[i] = ar[i-1]; ar[--i] = tmp;}
34
+    }
35
+}

+ 17
- 0
integer-squareroot-2.b93 View File

@@ -0,0 +1,17 @@
1
+v###   v                                                                    <
2
+                                                                  
3
+                                  vp01g03_v#-g01:_v#- <           
4
+>   1  >1+:               010p:20p>:30p:20 g\/+2/: 30g^           
5
+                                          >       >$30g                .55+,^
6
+
7
+
8
+
9
+ [10] pxk
10
+ [20] n
11
+ [30] xk
12
+
13
+
14
+Integer Square Root   ::    a        -->  floor(sqrt(a))
15
+                            (stack)  -->  (stack)
16
+
17
+[https://en.wikipedia.org/wiki/Integer_square_root]

+ 26
- 0
integer-squareroot.b93 View File

@@ -0,0 +1,26 @@
1
+> 8::**::**8*   20p       v
2
+
3
+v                         <
4
+
5
+
6
+                   >0v>vv p03+g03*2:p01-\g01+g03:<
7
+                   3 pp2# v/4    <   >:30g+10g`! |
8
+>   0 > 1+ :      0^ 10>0g>:10g`#^_>:|:/4p03/2g03<
9
+                     >^ >30g2/30p4/^ >$30g                       v
10
+
11
+      ^                                                     ,+55.<
12
+
13
+
14
+[10] op
15
+[20] 2^30 const  (muss vorher gesetzt sein) <- Up this to 2^60 for bigger sq roots (in long area)
16
+[30] res
17
+
18
+Integer Square Root
19
+
20
+2^30      8::**2*::**
21
+
22
+
23
+ >0v>vv p03+g03*2:p01-\g01+g03:<
24
+ 3 pp2# v/4    <   >:30g+10g`! |
25
+0^ 10>0g>:10g`#^_>:|:/4p03/2g03<
26
+   >^ >30g2/30p4/^ >$30g        

+ 86
- 0
is-squarenumber.b93 View File

@@ -0,0 +1,86 @@
1
+v###   v                                                                              <
2
+
3
+                                              >       >$30gv
4
+                                      vp01g03_^#-g01:_^#- <:
5
+                                      >:30p:20 g\/+2/: 30g^*
6
+                        >           >#^ #p #0 2 #<$      v
7
+> 98+  >1+:               :88*%"9"`#^_:88+%:9`#v_:2-#v_v   2
8
+                             >     >     >     > #     >$>$0>         . "  ",, :. 55+,^
9
+                        |!-8_^#-7:_^#-6:_^#-5:_^# -3:<     g 
10
+                                   >     ^<   0 <^:p010 <^<-!
11
+                        >:55+%:7-!#^_:3-!#^_2-!#^_:3%2-#^_^>^
12
+
13
+
14
+
15
+
16
+ [10] pxk           
17
+ [20] n      
18
+ [30] xk
19
+
20
+
21
+Is SquareNumber       ::    a        -->  sqrt(a)%1 == 0
22
+                            (stack)  -->  (stack)
23
+
24
+[https://en.wikipedia.org/wiki/Integer_square_root]
25
+[http://www.ask-math.com/properties-of-square-numbers.html]
26
+[http://www.johndcook.com/blog/2008/11/17/fast-way-to-test-whether-a-number-is-a-square]
27
+[http://stackoverflow.com/questions/295579/fastest-way-to-determine-if-an-integers-square-root-is-an-integer]
28
+
29
+~~~
30
+// Conditions for _NOT_ an square number 
31
+    x % 64  > 57        OR
32
+    x % 16  >  9        OR
33
+    x % 16 ==  2        OR
34
+    x % 16 ==  3        OR
35
+    x % 16 ==  5        OR
36
+    x % 16 ==  6        OR
37
+    x % 16 ==  7        OR
38
+    x % 16 ==  8        OR
39
+    x % 10 ==  2        OR
40
+    x % 10 ==  3        OR
41
+    x % 10 ==  7        OR
42
+    x %  3 ==  2 
43
+~~~
44
+
45
+
46
+//#############################################################################
47
+
48
+
49
+public bool isISqrt(int x)
50
+{
51
+	// http://www.ask-math.com/properties-of-square-numbers.html
52
+	// http://www.johndcook.com/blog/2008/11/17/fast-way-to-test-whether-a-number-is-a-square/
53
+	// http://stackoverflow.com/questions/295579/fastest-way-to-determine-if-an-integers-square-root-is-an-integer
54
+
55
+	if (x % 16 > 9) return false;
56
+	if (x % 64 > 57) return false;
57
+	if (x % 16 == 2) return false;
58
+	if (x % 16 == 3) return false;
59
+	if (x % 16 == 5) return false;
60
+	if (x % 16 == 6) return false;
61
+	if (x % 16 == 7) return false;
62
+	if (x % 16 == 8) return false;
63
+	if (x % 10 == 2) return false;
64
+	if (x % 10 == 3) return false;
65
+	if (x % 10 == 7) return false;
66
+	if (x % 3  == 2) return false;
67
+
68
+	return Math.Pow(isqrt(x), 2) == x;
69
+}
70
+
71
+// https://en.wikipedia.org/wiki/Integer_square_root
72
+int isqrt(int n)
73
+{
74
+	int pxk = 0;
75
+	int xk = n;
76
+	for (;;)
77
+	{
78
+		int nxk = (xk + n / xk) / 2;
79
+
80
+		if (nxk == xk) return xk;
81
+		if (nxk == pxk) return xk;
82
+
83
+		pxk = xk;
84
+		xk = nxk;
85
+	}
86
+}

+ 7
- 0
stack-array-count.b93 View File

@@ -0,0 +1,7 @@
1
+> 0     1 2 3 4 5      0>\#+ #1:#$_$    @
2
+
3
+
4
+
5
+// Calculate the count of stack values (Null-terminated)
6
+
7
+(stack) -> (stack)

+ 7
- 0
stack-array-sum.b93 View File

@@ -0,0 +1,7 @@
1
+> 0     1 2 3 4 5      >\# :#+_+    @
2
+
3
+
4
+
5
+// Generate sum of stack values (Null-terminated)
6
+
7
+(stack) -> (stack)

Loading…
Cancel
Save