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))))))