Initial move of code from git repo.

2018-04-14 18:13:13 -07:00
commit beb7155b4a
98 changed files with 271093 additions and 0 deletions
@@ -0,0 +1,24 @@
+from notebook_preamble import J, D, DefinitionWrapper, V
+
+#J('[0 swap [dup [pop 14811] [] branch dup [3 &] dip 2 >>] dip rest cons] 466 [x] times pop enstacken sum')
+
+
+DefinitionWrapper.add_definitions('''
+
+  direco == dip rest cons
+  G == [direco] cons [swap] swoncat cons
+
+  PE1.1 == dup [3 &] dip 2 >>
+  PE1.1.check == dup [pop 14811] [] branch
+  PE1.2 == + dup [+] dip
+
+  PE1 == 0 0 0 [PE1.1.check PE1.1] G 466 [x [PE1.2] dip] times popop
+
+  ''', D)
+
+V('PE1')
+
+
+# If the cleave combinator is built-in then this should be faster:
+#
+#    PE1.1 ==  [3 &] [2 >>] cleave