diff --git a/exercises/practice/binary/.meta/example.lfe b/exercises/practice/binary/.meta/example.lfe
index 42dc76b..544aeaa 100644
--- 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))))))