(defun str->atcoder (str)
(cond ((string= str "red") "SSS")
((string= str "blue") "FFF")
((string= str "green") "MMM")
(t "Unknown")))
(defun main ()
(princ (str->atcoder (read-line))))
#-swank
(main)Code language: PHP (php) (defun str->atcoder (str)
(cond ((string= str "red") "SSS")
((string= str "blue") "FFF")
((string= str "green") "MMM")
(t "Unknown")))
(defun main ()
(princ (str->atcoder (read-line))))
#-swank
(main)Code language: PHP (php)