RSS

Lisp ve Özgürlük

09 Aug


(defun remaining-safak ()
  "Return how many days left to leaving the army."
  (/ (- (encode-universal-time 0 0 0 16 9 2008)
	(get-universal-time))
     (* 60 60 24 1.0)))

CL-USER> (format t "~a days left to freedom." (remaining-safak))
37.562374 days left to freedom.
NIL

Advertisements
 
 

One response to “Lisp ve Özgürlük

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

 
%d bloggers like this: