- プログラミングのお題スレ Part5
7 ：デフォルトの名無しさん[sage]：2014/09/21(日) 03:05:06.13 ID:94PpjV7B - お題: 1つの整数を引数としてとり、その整数を連想させるひとつの文字列を返す
関数goroawaseを定義してください。
(defun goroawase (n)
(goroawase-impl n))
goroawase
(goroawase 18782)
"いやなやつ"
(goroawase (* 18782 2))
"みなごろし"
(goroawase 4649)
"よろしく"
|
- プログラミングのお題スレ Part5
11 ：7[sage]：2014/09/21(日) 11:08:48.77 ID:94PpjV7B - >>9
たとえば、SKK 辞書のSKK-JISYO.Lを使ってみてください。
http://openlab.ring.gr.jp/skk/dic-ja.html
|
- プログラミングのお題スレ Part5
15 ：デフォルトの名無しさん[sage]：2014/09/21(日) 13:05:51.37 ID:94PpjV7B - >>12 Emacs Lisp
(defun f (N)
(let* ((AD 100.0)
(CE 100.0)
(DE 100.0)
(DB (abs N))
(BE (abs (- DE N)))
(AB (sqrt (+ (* AD AD) (* DB DB))))
(BC (sqrt (+ (* CE CE) (* BE BE)))))
(list AB BC)))
f
(f 0.0)
(100.0 141.4213562373095)
(f 100.0)
(141.4213562373095 100.0)
(f 200.0)
(223.60679774997897 141.4213562373095)
(f -100.0)
(141.4213562373095 223.60679774997897)
|
- プログラミングのお題スレ Part5
16 ：デフォルトの名無しさん[sage]：2014/09/21(日) 13:35:26.24 ID:94PpjV7B - >>13 Emacs Lisp
(require 'cl-lib)
cl-lib
(let* ((s0 (cl-loop for i from 1 to 100 collect i))
(s1 (cl-remove-if (lambda (x) (and (numberp x) (= (% x 5) 0))) s0))
(s2 (mapcar (lambda (x) (if (and (numberp x) (= (% x 4) 0) (= (% x 6) 0)) 'FizzBuzz x)) s1))
(s3 (mapcar (lambda (x) (if (and (numberp x) (= (% x 6) 0)) 'Buzz x)) s2))
(s4 (mapcar (lambda (x) (if (and (numberp x) (= (% x 4) 0)) 'Fizz x)) s3)))
(mapcar (lambda (x) (prog1 (princ x) (terpri))) s4))
|