사용하지 않는 함수들 삭제

새롭게 다시 함수 제작하여 추가

.gitignore

@@ -1,16 +1,108 @@
-/target
-/classes
-/checkouts
+# visual code
+/*.vsix
+# .vscode/settings.json
+.vscode-test
+.lh
+
+# Logs
+logs
+*.log
+npm-debug.log*
+
+# Runtime data
+pids
+*.pid
+*.seed
+
+# Directory for instrumented libs generated by jscoverage/JSCover
+lib-cov
+
+# Coverage directory used by tools like istanbul
+coverage
+
+# nyc test coverage
+.nyc_output
+
+# Grunt intermediate storage (http://gruntjs.com/creating-plugins#storing-task-files)
+.grunt
+
+# node-waf configuration
+.lock-wscript
+
+# Compiled binary addons (http://nodejs.org/api/addons.html)
+build/Release
+
+# Dependency directories
+node_modules
+jspm_packages
+
+# Optional npm cache directory
+.npm
+
+# Optional REPL history
+.node_repl_history
+
+#Macos
+.DS_Store
+
+## CLJS
+.shadow-cljs/
+lib/
+cljs-out/
+test-out/
+
+# This and that
+.nrepl-port
+dist/
 pom.xml
-pom.xml.asc
-*.jar
-*.class
-/.lein-*
-/.nrepl-port
-.hgignore
-.hg/
-.clj-kondo
-.calva
+.idea
+*.iml
+*.bak
+
+## TS
+out/
+html/main.js
+tsconfig.tsbuildinfo
+html/main.js.map
+
+# Test reporter
+junit/test-results.xml
+
+# Don't know what this is
+report.*
+
+# clojure-lsp
 .lsp
-/src/lotto/workspace.code-workspace
-.DS_Store
+.clj-kondo
+/clojure-lsp*
+
+#Calva
+output.calva-repl
+**/.calva/repl.calva-repl
+
+
+# MkDocs
+/site/
+.cache/
+
+# Calva dev
+clojure.tmLanguage.json
+.cpcache/
+backup/
+bundled/drams-menu/drams-local.edn
+
+# Calva grammars (running the atom-ci docker image locally)
+src/calva-fmt/atom-language-clojure/.cache/
+src/calva-fmt/atom-language-clojure/.bash_history
+
+# Leiningen
+.lein-repl-history
+
+# Portal
+.portal
+
+# Emacs
+*~
+
+# java
+classes

README.md

@@ -1,36 +1,10 @@
 # lotto
 
-FIXME: description
-
-## Installation
-
-Download from http://example.com/FIXME.
-
-## Usage
-
-FIXME: explanation
-
-    $ java -jar lotto-0.1.0-standalone.jar [args]
-
-## Options
-
-FIXME: listing of options this app accepts.
-
-## Examples
-
-...
-
-### Bugs
-
-...
-
-### Any Other Sections
-### That You Think
-### Might be Useful
+로또 번호를 추출하여 변환하는 함수들 모음
 
 ## License
 
-Copyright © 2018 FIXME
+Copyright © 2018-2024 FIXME
 
 Distributed under the Eclipse Public License either version 1.0 or (at
 your option) any later version.

deps.edn

@@ -0,0 +1,3 @@
+{:paths ["src" "classes"]
+ :deps {org.clojure/clojure {:mvn/version "1.11.4"}
+        org.clojure/data.json {:mvn/version "2.5.0"}}}

src/lotto/core.clj

@@ -1,21 +1,143 @@
 (ns lotto.core
-  (:gen-class)
-  (:require [lotto.lotto-core :as lotto]))
+  (:require [clojure.data.json :as json]))
 
-(->> (repeatedly #(rand-int 45))
-     (take 10)
-     (filter #(> % 0))
-     (into #{})
-     (take 6)
-     (sort))
+;; 구현 순서
+;; 데이터 읽기 
+;; 데이터 가공 하기
+;; 가공된 데이터를 처리 하기
 
-(lotto/get-big-values)
+;; 2024.10.04일 기준 회차
+(def last-round 1139)
 
-(lotto/get-small-values)
+(defn get-data [round]
+  (let [data (json/read-str
+              (slurp
+               (str "https://www.dhlottery.co.kr/common.do?method=getLottoNumber&drwNo=" round))
+              :key-fn keyword)]
+    (if (= (:returnValue data) "success")
+      data
+      (throw (ex-info (str round " 회차 정보를 불러 올 수 없습니다.") data)))))
 
-(lotto/get-big-lotto-digit)
+;; 전체 데이터에서 마지막 회차의 회차번호 가져오기
+(def last-drwNo #(:drwNo (last %)))
 
-(defn -main
-  "I don't do a whole lot ... yet."
-  [& args])
+;; 마지막 회차 저장 하기
+(defn add-last-round [last-round]
+  (let [last-data (get-data last-round)
+        data (read-string (slurp "lotto.edn"))]
+    (if (not= (last-drwNo data) last-round)
+      (->> (conj data last-data)
+           (spit "lotto.edn"))
+      (println last-round "회차는 이미 저장되어 있습니다."))))
 
+;; 원격에서 전체 회차 데이터 가져오기
+;; (def remote-data (map #(get-data %) (range 1 (inc last-round))))
+
+;; 파일에 있는 정보 읽기
+(def file-data (read-string (slurp "lotto.edn")))
+
+;; [1 2 3 4 5 6 보너스]의 형태로 변환
+(defn trans-data [& coll]
+  (let [{:keys [drwtNo1 drwtNo2 drwtNo3 drwtNo4 drwtNo5 drwtNo6 bnusNo]} coll]
+    [drwtNo1 drwtNo2 drwtNo3 drwtNo4 drwtNo5 drwtNo6 bnusNo]))
+
+;; 변환된 데이터
+(def lotto-data (map #(trans-data %) file-data))
+
+;; 위 데이터를 바탕으로 적게 나온 숫자 가져오기
+;; [숫자 횟수] 형태로 바꾼다.
+(def group-by-number #(vec (frequencies %)))
+
+;; 오름 차순
+(def sort-asc #(sort-by second %))
+
+;; 내림 차순
+(def sort-desc #(sort-by second > %))
+
+;; 자리에 있는 데이터 가져오는 함수
+(def first-d #(first %))
+(def second-d #(second %))
+(def third-d #(second-d (rest %)))
+(def forth-d #(third-d (rest %)))
+(def fifth-d #(forth-d (rest %)))
+(def sixth-d #(fifth-d (rest %)))
+(def bonus-d #(last %))
+
+;; 1~45번까지 로또 번호 리스트
+(def lotto-numbers (range 1 (inc 45)))
+
+;; 나오지 않은 로또 숫자 찾는 함수
+(def unincluded-numbers #(filter (complement (set %)) lotto-numbers))
+
+;; [숫자 횟수] 리스트에서 숫자만 n개 가져오기
+(defn get-numbers [n number-counts]
+  (map first (sort (take n number-counts))))
+
+;; 자리수에 대한 통계
+(defn digit-statistics [digit all-data]
+  (let [digit-data (map digit all-data) ;; 자리에 있는 데이터
+        number-counts (group-by-number digit-data) ;; [숫자 횟수] 그룹화 데이터
+        min-numbers (sort-asc number-counts) ;; 오름차순 데이터
+        max-numbers (sort-desc number-counts)] ;; 내림 차순 데이터
+    {:min (get-numbers 7 min-numbers) ;; 가장 적게 나온 숫자 7개
+     :max (get-numbers 7 max-numbers) ;; 가장 많이 나온 숫자 7개
+     :unincluded (unincluded-numbers digit-data)}))
+
+;; 자리에 대한 각각 통계 데이터
+(defn statistics []
+  (map #(digit-statistics % lotto-data) [first-d second-d third-d forth-d fifth-d sixth-d bonus-d]))
+
+
+;; 테스트 용
+(comment
+  (get-data 1140)
+
+  (spit "lotto2.edn" [(get-data 1138)])
+
+  (add-last-round last-round))
+
+;; 위 함수를 만들기 위한 테스트
+(comment
+  ;; 첫째 자리수 가져오기
+  (def first-digit (map first lotto-data))
+;; [숫자 횟수] 형태로 변환
+  (def first-number-counts (group-by-number first-digit))
+
+;; 첫째 자리에서 안나온 숫자 확인
+  (unincluded-numbers first-digit)
+
+;; 둘째 자리수 가져오기
+  (def second-digit (map second lotto-data))
+
+;; 둘째 자리에서 안나온 숫자 확인
+  (unincluded-numbers second-digit)
+
+;; 셋째 자리수 가져오기
+  (def third-digit (map third-d lotto-data))
+
+;; 셋째 자리에서 안나온 숫자 확인
+  (unincluded-numbers third-digit)
+
+;; 넷째 자리수 가져오기
+  (def forth-digit (map forth-d lotto-data))
+
+;; 넷째 자리에서 안나온 숫자 확인
+  (unincluded-numbers forth-digit)
+
+;; 다섯째 자리수 가져오기
+  (def fifth-digit (map fifth-d lotto-data))
+
+;; 다섯째 자리에서 안나온 숫자 확인
+  (unincluded-numbers fifth-digit)
+
+;; 여섯째 자리수 가져오기
+  (def sixth-digit (map sixth-d lotto-data))
+
+;; 여섯째 자리에서 안나온 숫자 확인
+  (unincluded-numbers sixth-digit)
+
+;; 보너스 숫자만 가져오기
+  (def bonus-digit (map bonus-d lotto-data))
+
+;; 보너스 자리에서 안나온 숫자 확인 - 없음
+  (unincluded-numbers bonus-digit))