From 810f0fcef05b028ccb0f26dbd06f5d80f00a716e Mon Sep 17 00:00:00 2001 From: CrossNox Date: Sat, 26 Nov 2022 22:43:20 -0300 Subject: [PATCH] passing test --- src/rustint/core.clj | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index 9a6f5e2..6836fd0 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -2203,7 +2203,15 @@ ; [10] ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defn pasar-a-float [arg] - (int arg) + (if + (string? arg) + ( + try + (reduce #(+ (* 10 %1) %2) (map #(- %1 48) (map int (map char arg)))) + (catch ClassCastException e (arg)) + ) + arg + ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;