From 30a291df42554b52cb77ca7cddb68bc8ef79f7e9 Mon Sep 17 00:00:00 2001
From: CrossNox <ijmermet@gmail.com>
Date: Sat, 26 Nov 2022 23:06:49 -0300
Subject: [PATCH] add pasar a int code

---
 src/rustint/core.clj | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/rustint/core.clj b/src/rustint/core.clj
index 6814d72..5ca4e19 100644
--- a/src/rustint/core.clj
+++ b/src/rustint/core.clj
@@ -2182,10 +2182,13 @@
 ; user=> (pasar-a-int [10.0])
 ; [10.0]
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-; TODO
-;(defn pasar-a-int
-;
-;)
+(defn pasar-a-int [arg]
+  (cond
+    (number? arg) (int arg)
+    (string? arg) (if (re-find #"^-?\d+\.?\d*$" arg) (int (read-string arg)) arg)
+    :else arg
+  )
+)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; PASAR-A-FLOAT: Recibe un elemento. Si puede devolverlo expresado como un numero de punto flotante, lo hace. Si no,