update

Author: thautwarm

python-ffi/Control/Apply.py

@@ -0,0 +1,5 @@
+def arrayApply(fs):
+    def ap(xs):
+        return tuple(f(x) for f in fs for x in xs)
+
+    return ap

python-ffi/Control/Bind.py

@@ -0,0 +1,9 @@
+def arrayBind(arr):
+    def kl(f):
+        res = []
+        ext = res.extend
+        for each in arr:
+            ext(f(each))
+        return tuple(res)
+
+    return kl

python-ffi/Record/Unsafe.py

@@ -0,0 +1,19 @@
+def unsafeHas(label):
+    return lambda rec: label in rec
+
+
+def unsafeGet(label):
+    return lambda rec: rec[label]
+
+
+def unsafeSet(label):
+    return lambda val: lambda rec: {**rec, label: val}
+
+
+def unsafeDelete(label):
+    def ap(rec):
+        copy = rec.copy()
+        del copy[label]
+        return copy
+
+    return ap