Practice/Lisp

Lisp 비교 : 암호 문자열 감추기 문제 풀이

"케빈 TV 12회 (상) - 느 언어엔 이런거 없지?"에 주어진 글자수만큼 '*'를 가진 문자열을 생성하는 문제가 나왔다.

여러 언어별 구현이 나왔지만, Common Lisp와 Emacs Lisp, Scheme, Clojure가 없어서 여기에 적어본다.


Common Lisp:

(defun hide-password (passwd)
  (coerce (mapcar #'(lambda (x) #\*)
                  (coerce passwd 'list))
          'string))


Emacs Lisp:

(defun hide-password (passwd)
  (coerce (mapcar (lambda (x) ?\*)
                  (coerce passwd 'list))
          'string))


Scheme:

(define (hide-password passwd)
  (list->string (map (lambda (x) #\*)
                     (string->list passwd))))



Clojure:

(require '[clojure.string :as str])
(defn hide-password [password]
  (str/join (map (fn [x] \*) password)))


저작자 표시 변경 금지
신고

알림

이 블로그는 구글에서 제공한 크롬에 최적화 되어있고, 네이버에서 제공한 나눔글꼴이 적용되어 있습니다.

카운터

Today : 21
Yesterday : 111
Total : 171,006