Add max into std

Chia-Network · May 16, 2024 · 609ce75 · 609ce75
1 parent 9c5ebb7
commit 609ce75
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 13 deletions.
diff --git a/max.clinc b/max.clinc
diff --git a/std/max.clinc b/std/max.clinc
@@ -0,0 +1,11 @@
+(defun max_inner (myless best_so_far mylist)
+    (if (not mylist) best_so_far
+        (if (a myless (list best_so_far (f mylist)))
+            (max_inner myless (f mylist) (r mylist))
+            (max_inner myless best_so_far (r mylist))
+        )
+    )
+)
+(defun max (myless mylist)
+    (max_inner myless (f mylist) (r mylist))
+)