Explorar o código

mimc constants nth element

plato %!s(int64=5) %!d(string=hai) anos
pai
achega
53ef1dcb49
Modificáronse 2 ficheiros con 1 adicións e 2 borrados
  1. 1 1
      lisp/examples/macro-test.lisp
  2. 0 1
      lisp/examples/mimc-constants.lisp

+ 1 - 1
lisp/examples/macro-test.lisp

@@ -253,7 +253,7 @@
 (def! mimc (fn* [left right] (
     (def! xl (alloc "xl" left))
     (def! xr (alloc "xr" right))
-    (def! acc 1)
+    (def! acc 0)
     (dotimes 322 (
         (println (mimc-macro xl xr acc))
         (def! acc (i+ acc 1))

+ 0 - 1
lisp/examples/mimc-constants.lisp

@@ -321,4 +321,3 @@
 "101464d19cf380958e5aef1084736db89f4cb131033ae670f6de0a5cf9d92b73"
 "597cdd384abdad1beccc73fb39f74a18eb44d056951d602c2ef6ef6448fc5626"
 ))
-