Simplify example

exercism · Jun 24, 2024 · 062d994 · 062d994
1 parent 8f919c9
commit 062d994
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/exercises/practice/binary/.meta/example.lfe b/exercises/practice/binary/.meta/example.lfe
@@ -1,10 +1,6 @@
 (defmodule binary
   (export (to-decimal 1)))
 
-(defun to-decimal (string)
-  (try (element 2 (lists:foldr #'to-decimal/2 #(0 0) string))
-    (catch (_ 0))))
+(defun to-decimal (number)
+  (list_to_integer number 2))
 
-(defun to-decimal
-  ([#\0 `#(,n ,acc)] `#(,(+ n 1) ,acc))
-  ([#\1 `#(,n ,acc)] `#(,(+ n 1) ,(+ acc (trunc (math:pow 2 n))))))