rubikitch #1424(2007/07/24 15:07 GMT) [ Common Lisp ] Rating-2/2=-1.00[open]
1 2 3 4 5 6 7
(require :kmrcl) (defparameter *freq-table* '(#\c "262" #\d "294" #\e "330" #\f "349" #\g "392" #\a "440" #\b "494" #\r "1")) (defun play (mml) (loop for c across mml do (kmrcl:run-shell-command "beep -f ~a" (getf *freq-table* c)))) (play "cdefedcrefgagfercrcrcrcrcdefedcr")
Rating-2/2=-1.00-0+
[ reply ]
rubikitch
#1424()
[
Common Lisp
]
Rating-2/2=-1.00[open]
(require :kmrcl) (defparameter *freq-table* '(#\c "262" #\d "294" #\e "330" #\f "349" #\g "392" #\a "440" #\b "494" #\r "1")) (defun play (mml) (loop for c across mml do (kmrcl:run-shell-command "beep -f ~a" (getf *freq-table* c)))) (play "cdefedcrefgagfercrcrcrcrcdefedcr")Rating-2/2=-1.00-0+
[ reply ]