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)))