Projeto pratico - Maria Alice Guimaraes Carneiro

README.md

@@ -5,4 +5,4 @@
 Projeto bancário para mergulhar no mundo da **programação funcional** com Clojure + Datomic!
 
 
-Desenvolvido por *[COLOCAR NOME AQUI]* (*[COLOCAR SEU EMAIL AQUI]*).
+Desenvolvido por *MARIA ALICE GUIMARÃES CARNEIRO* (*maria.carneiro@nubank.com.br*).

project.clj

@@ -3,5 +3,9 @@
   :url "http://example.com/FIXME"
   :license {:name "EPL-2.0 OR GPL-2.0-or-later WITH Classpath-exception-2.0"
             :url "https://www.eclipse.org/legal/epl-2.0/"}
-  :dependencies [[org.clojure/clojure "1.10.1"]]
+  :dependencies [[org.clojure/clojure "1.11.1"]
+                 [clojure.java-time "0.3.3"]
+                 [org.clojure/data.csv "1.0.1"]
+                 [prismatic/schema "1.1.12"]
+                 [com.datomic/datomic-pro "1.0.6397"]]
   :repl-options {:init-ns yes-she-codes.core})

src/yes_she_codes/semana1/cartoes.clj

@@ -0,0 +1,58 @@
+(ns yes-she-codes.semana1.cartoes
+  (:require [yes-she-codes.db :as y.db]
+            [clojure.string :as s]
+            [yes-she-codes.logic :as y.logic]
+            [java-time :as t]))
+
+
+
+
+
+(println "\n\n ---------------- testando data java time ---------------- ")
+(println (t/format (t/year-month (str "2022-09"))))
+
+
+
+
+
+(println "\n\n ---------------- novo cartao ---------------- ")
+(defn novo-cartao
+  [numero cvv validade limite cliente]
+  (let [cc-info {:numero   (y.logic/str-to-float numero)
+                 :cvv      cvv
+                 :validade (t/format (t/year-month (str validade)))
+                 :limite   limite
+                 :cliente  (y.logic/str-to-float cliente)}
+        client-info  (y.logic/validar-cliente cliente)]
+    (if (nil? client-info)
+      "cpf nao encontrado"
+      cc-info))
+  )
+;aqui usamos a funcao str-to-float para transformar strings
+;primeiro removemos os espacos ou pontos (. -) entre os numeros
+;e depois transformamos a string em tipo long
+
+(let [numero "1111 2222 3333 4444"
+      cvv 555
+      validade "2022-09"
+      limite 5.000
+      ;cliente "114.918.436-16"
+      cliente "000.111.222-33"
+      ]
+  (println (novo-cartao numero cvv validade limite cliente)))
+
+
+
+
+
+(println "\n\n ---------------- lista cartoes ---------------- ")
+
+(defn lista-cartoes
+  []
+  (let [cartoes (y.logic/csv-reader "/Users/maria.carneiro/Documents/yes-she-codes-alura/yes-she-codes/src/yes_she_codes/csv/cartoes.csv")]
+    (println cartoes))
+  )
+
+(lista-cartoes)
+
+

src/yes_she_codes/semana1/clientes.clj

@@ -0,0 +1,42 @@
+(ns yes-she-codes.semana1.clientes
+  (:require [yes-she-codes.db :as y.db]
+            ;[clojure.string :as s]
+            ;[yes-she-codes.logic :as y.logic]
+            [java-time :as time]
+            [yes-she-codes.logic :as y.logic]
+            ))
+
+
+
+
+
+(println "\n\n ---------------- novo cliente ---------------- ")
+
+(defn novo-cliente
+  [nome cpf email]
+  {:nome  nome
+   :cpf   cpf
+   :email email})
+
+(let [nome "Gabriel"
+      cpf "114.918.436-16"
+      email "gabrielvcbessa@gmail.com"]
+  (println (novo-cliente nome cpf email)))
+
+
+
+
+
+(println "\n\n ---------------- lista clientes ---------------- ")
+
+(defn lista-clientes
+  []
+  (let [clientes (y.logic/csv-reader "/Users/maria.carneiro/Documents/yes-she-codes-alura/yes-she-codes/src/yes_she_codes/csv/clientes.csv")]
+    (println clientes))
+  )
+
+(lista-clientes)
+
+
+
+