Work transfer

2020-02-18 10:52:05 +01:00
parent 7aa492df67
commit 7c220ed9d6
72 changed files with 19257 additions and 19094 deletions
@@ -1,12 +1,12 @@
-(define-module automata
-  :imports ("sets.slime")
-  :exports (make-dfa)
-
-  (define (make-dfa Q S delta q0 F)
-    (let ((q q0))
-      (set-type! (lambda (s)
-                   (set! q (delta q s))
-                   (list (if (set::contains? F q) :accept :fail) q))
-                 :automaton)))
-
-  )
+(define-module automata
+  :imports ("sets.slime")
+  :exports (make-dfa)
+
+  (define (make-dfa Q S delta q0 F)
+    (let ((q q0))
+      (set-type! (lambda (s)
+                   (set! q (delta q s))
+                   (list (if (set::contains? F q) :accept :fail) q))
+                 :automaton)))
+
+  )