#!/bin/python3
import string
from functools import reduce
h = {key: int(value) for key, value in zip(string.ascii_lowercase, input().strip().split(' '))}
word = input().strip()
height = reduce(max, map(lambda x: h[x], word))
print(len(word)*height)
참고자료: 딕셔너리로 한꺼번에 가져오기 위한 자료.
#!/bin/python3
n, k = [int(x) for x in input().strip().split(' ')]
height = [int(x) for x in input().strip().split(' ')]
print((lambda x: x if x > 0 else 0)(max(height)-k))
음... 나쁘지 않은듯. 결국 인풋을 받는 내용을 빼고는 한줄로 끝낸 거니까... 근대 이게 효율적인건가?
(use '[clojure.java.shell :only [sh]]) (sh "notepad" "a.txt") (sh "notepad" "/a.txt") (sh "pwd") (sh "nslookup") (sh "nslookup" "-query=mx" "google.com")
(defn find-mx [hostname]
(letfn [(nslookup [hostname] (sh "nslookup" "-query=mx" hostname))]
(nslookup hostname)))
(find-mx "google.com")
자세히 보아하니 뭔가 엄청 나오는 거 같다.(defn find-mx [hostname]
(letfn [(nslookup [hostname] (sh "nslookup" "-query=mx" hostname))]
(remove nil? (map #(re-matches #"(.+)mail\sexchanger(.+)" %)
(clojure.string/split (second (second (nslookup hostname))) #"\r\n")))))
(find-mx "google.com")
(["google.com\tMX preference = 10, mail exchanger = aspmx.l.google.com" "google.com\tMX
preference =
10, " " = aspmx.l.google.com"] ["google.com\tMX preference = 30, mail exchanger = alt2.aspmx.l.goog
le.com" "google.com\tMX preference = 30, " " = alt2.aspmx.l.google.com"] ["google.com\tMX
preference
= 20, mail exchanger = alt1.aspmx.l.google.com" "google.com\tMX preference = 20, " " =
alt1.aspmx.l
.google.com"] ["google.com\tMX preference = 50, mail exchanger = alt4.aspmx.l.google.com"
"google.co
m\tMX preference = 50, " " = alt4.aspmx.l.google.com"] ["google.com\tMX preference = 40, mail exchan
ger = alt3.aspmx.l.google.com" "google.com\tMX preference = 40, " " =
alt3.aspmx.l.google.com"])
user=> (count (find-mx "google.com")) 5 user=> (count (find-mx "google33.com")) 0 user=> (count (find-mx "naver.com")) 3
(count (find-mx hostname)) 0) true false) (mx-exist? "google.com") true (mx-exist? "google3134.com") false
(defn best [f xs] (reduce #(if (f % %2) % %2) xs)) (best > [1 2 3 4 5 6]) 6위 best함수는 > 함수를 받아 몸체 안에서 f로 호출한다. (이렇게 함수, 값이 이름바인딩으로 아주 일괄적)
(defun best (f xs) (reduce #'(lambda (l r) (if (funcall f l r) l r)) xs)) (best #'>' '(1 2 3 4 5 6))뭐 이상해 보이는건 내가 커먼리습을 몰라서 그런거지 절대 클로저가 좋아서 그런건 아닌듯. 그냥 차이를 알고 있자.
(def users [{:subscription true :name "Y"} {:subscription true :name "Z"} {:subscription false :name "Z"}])
(sort (comparator (fn [u1 u2]
(cond
(= (:subscription u1) (:subscription u2))
(neg? (compare (:name u1) (:name u2)))
(:subscription u1)
true
:else
false)))
users)
위 소스는 comparator를 만들고 하는 것이 아주 비슷하다. (sort-by (juxt (complement :subscription) :name) users) ;; forward sort (sort-by (juxt :subscription :name) #(compare %2 %1) users) ;; reverse sort워워 하나씩 보자.
(sort-by count ["aaa" "bb" "c"])
("c" "bb" "aaa")
juxt 이녀석은 뭘까? (juxtaposition : 병렬, 병치)(for [user users] ((juxt :subscription :name) user)) ;; ([true "Y"] [true "Z"] [false "Z"]) (for [user users] ((juxt (complement :subscription) :name) user)) ;; ([false "Y"] [false "Z"] [true "Z"])
(def odd?? (complement even?)) (odd?? 3) true이걸 먼저 알아보자
(sort-by (juxt (complement :subscription) :name) users) ;; forward sort
user=> ((complement :subscription ) {:subscription "HI"})
false
user=> ((complement :a ) {:b "HI"})
true
보면 알겠지만 커맨드(명령)을 login/logout명령으로 나눠서 따로 구현했다.
구현할 때 Command 인터페이스를 구현하여 execute(실행해라!)모든 명령을 이 인터페이스가 있는 녀석으로 구현하면
뭐든 간에 execute만 실행하면 될 것이다.
(defn login [id pass] (println "id: " id ", pass: " pass))
(defn logout [id] (println "logout: " id))
(defn execute [command]
(do
(println "logging")
(command)))
;; 익명인터페이스와 동급
(execute #(login "name" "123"))
(execute #(logout "idid"))
(defn execute [command & args]
(apply command args))
(execute login "id" "password")
apply를 사용하는 이유는 [command & args]에서 args는 리스트형태(?)로 반환하기 때문에 이 리스트 괄호를 깨부시고 안에 들어가서 적용(apply)해야 한다.(defn wrong-execute [command & args] (command args)) (wrong-execute login "id" "password") ArityException Wrong number of args (1) passed to: user/login clojure.lang.AFn.throwArity (AFn.java:429)보는바와 같이 login에는 잘못된 숫자의 매개변수가 들어간 것이다.
(login ["id" "password"])요래 들어갔을 것이다. 이렇게 실행해보자.
user=> (login ["id" "password"]) ArityException Wrong number of args (1) passed to: user/login clojure.lang.AFn.throwArity (AFn.java:429)똑같다 이제 apply를 해보자
user=> (apply login ["id" "password"]) id: id , pass: password nil아까 apply를 이용하면 괄호들을 깨부수고 안으로 들어(?)간다고 했다.
(apply login ["id" "password"]) == (login "id" "password")요래 들어가는 것!!! (apply를 꼭 써야 한다.)
이게 왜 중요하다는 거지?
일단 커맨트패턴이 뭔지보자. (자바의 눈으로)foreach 문과 비슷하다. 각각의 요소(element)를 돈다(iterate). 중요한 것은 lazy sequence를 강제(force) 평가(evaluation)한다.
(doseq [n (range 10)] (println n)) 0 1 ~ 9
일반 for문과 비슷하다. 숫자만큼 포문을 돈다.
(dotimes [i 10] (println i)) 0 1 ~ 9
단순 while문과 비슷
(def a (atom 0))
(while (< @a 10)
(do
(println @a)
(swap! a inc)))
0
1
~
9
loop를 이용하여 재귀를 돌 범위를 정한다. recur을 이용하여 loop의 값을 바꾼다.
(loop [i 0]
(if (< i 10)
(do (println i)
(recur (inc i)))
i))
0
1
~
9
함수 이름을 부르지 않고 recur을 사용하는 이유는 tail recursion때문이다.
(defn increase [i]
(if (< i 10)
(do (println i)
(recur (inc i)))
i))
(increase 0)
0
1
~
9
-vm C:\Program Files\Java\jdk1.8.0_152\bin\javaw.exe이런식의 내용을 eclipse.ini 에 맨 위에 넣는다.
