fork download 
  1. ;;; Formula definitions!
  2.  
  3. (defun radians->degrees (angle)
  4.   (* angle (/ 180 PI)))
  5.  
  6. (defun degrees->radians (angle)
  7.   (* angle (/ PI 180)))
  8.  
  9. ;;; Note:
  10. ;;; For the temperature formulas, Celsius is the 'master' format;
  11. ;;; instead of fahernheit->kelvin, I'll do fahernheit->celsius->kelvin.
  12.  
  13. (defun celsius->fahrenheit (temp)
  14.   (+ (* temp (/ 9 5)) 32))
  15.  
  16. (defun fahrenheit->celsius (temp)
  17.   (* (- temp 32) (/ 5 9)))
  18.  
  19. (defun celsius->kelvin (temp)
  20.   (+ temp 273.15))
  21.  
  22. (defun kelvin->celsius (temp)
  23.   (- temp 273.15))
  24.  
  25. (defparameter *conversion-lookup-table*
  26.   `(("r" ("d" . ,#'radians->degrees))
  27. 	("d" ("r" . ,#'degrees->radians))
  28. 	("c" ("f" . ,#'celsius->fahrenheit)
  29. 	     ("k" . ,#'celsius->kelvin))
  30. 	("f" ("c" . ,#'fahrenheit->celsius)
  31. 	     ("k" . ,(lambda (x) (celsius->kelvin (fahrenheit->celsius x)))))
  32. 	("k" ("c" . ,#'kelvin->celsius)
  33. 	     ("f" . ,(lambda (x) (celsius->fahrenheit (kelvin->celsius x)))))))
  34.  
  35. (defun get-conversion-function (from to)
  36.   (cdr (assoc to
  37. 		  (cdr (find from
  38. 			     *conversion-lookup-table*
  39. 			     :key #'car :test #'string=))
  40. 		  :test #'string=)))
  41.  
  42. (defun split-input (input-string)
  43.   (let ((first-char (position-if #'alpha-char-p input-string)))
  44. 	(with-input-from-string (is-stream (subseq input-string 0 first-char))
  45. 	  (list (read is-stream nil nil)
  46. 		(subseq input-string first-char (1+ first-char))
  47. 		(subseq input-string (1+ first-char))))))
  48.  
  49. (defun convert-degree (input-string)
  50.   (let* ((split-list (split-input input-string))
  51. 	     (conversion-function (get-conversion-function (second split-list)
  52. 							   (third split-list))))
  53. 	(if conversion-function
  54. 	    (format nil "~f~a"
  55. 		    (funcall conversion-function (first split-list))
  56. 		    (third split-list))
  57. 	    nil)))
  58.  
  59. ;;; Results
  60. (dolist (x '("3.1416rd"
  61. 		 "90dr"
  62. 		 "212fc"
  63. 		 "70cf"
  64. 		 "100cr"
  65. 		 "315.15kc"))
  66.   (let ((result (convert-degree x)))
  67. 	(if result
  68. 	    (format t "~a~%" result)
  69. 	    (format t "No candidate for conversion~%"))))
Success #stdin #stdout 0.01s 10528KB
comments ()
stdin 
Standard input is empty
stdout 
180.00041d
1.5707963267948966193r
100.0c
158.0f
No candidate for conversion
42.0c
https://ideone.com/jwbIDm
language:
Common Lisp (clisp 2.49.92)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!