passing test

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