← Back to branch summary

~efargaspro/+junk/codeblocks-16.01-release

« back to all changes in this revision

Viewing changes to src/sdk/resources/lexers/lexer_lisp.sample

  • Committer: damienlmoore at gmail
  • Date: 2016-02-02 02:43:22 UTC
  • Revision ID: damienlmoore@gmail.com-20160202024322-yql5qmtbwdyamdwd
Code::Blocks 16.01

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/sdk/resources/lexers/lexer_lisp.sample
 
1
;;; This function, given a specific degree in Farhrenheit,
 
2
;;;      presents the user with equivalent Celsius degree.
 
3
 
 
4
(defun convert ()
 
5
(format t "Enter Fahrenheit ")
 
6
  (LET (fahr)
 
7
    (SETQ fahr (read fahr))
 
8
    (APPEND '(celsisus is) (*(- fahr 32)(/ 5 9)) )
 
9
  )
 
10
)