(defvar a)
(defvar b)
(defvar c)
(defvar d)
(write-line " Enter two numbers in decimal : ")
(setf a(read))
(setf b(read))
(sb-thread:make-thread(lambda()
(progn
(sleep 0)
(setf c(+ a b))
(print "ADDITION in binary: ")
(format t " ~b" c )
(print "ADDITION in decimal: ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(- a b))
(print "SUBTRACTION in binary: ")
(format t " ~b" c )
(print "SUBTRACTION in decimal: ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(* a b))
(print "MULTIPLICATION in binary: ")
(format t " ~b" c )
(print "MULTIPLICATION IN DECIMAL: ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(* a a))
(print "SQUARE in binary: ")
(format t " ~b" c )
(print "SQUARE OF 1st NUMBER : ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(* b b b))
(print "CUBE OF 2ND NUMBER : ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(sin a))
(print "SINE OF 1ST NUMBER : ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(tan a))
(print "TAN OF 1ST NUMBER : ")
(print c)))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(cos a))
(print "COSINE OF 1ST NUMBER : ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(acos a))
(print "SEC OF 1ST NUMBER : ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(asin a))
(print "COSEC OF 1ST NUMBER : ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(atan a))
(print "COT OF 1ST NUMBER : ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(min a b))
(print "MINIMUM NUMBER : ")
(print c))) (sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(max a b))
(print "MAXIMUM NUMBER : ")
(print c))))
(exit)
(defvar b)
(defvar c)
(defvar d)
(write-line " Enter two numbers in decimal : ")
(setf a(read))
(setf b(read))
(sb-thread:make-thread(lambda()
(progn
(sleep 0)
(setf c(+ a b))
(print "ADDITION in binary: ")
(format t " ~b" c )
(print "ADDITION in decimal: ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(- a b))
(print "SUBTRACTION in binary: ")
(format t " ~b" c )
(print "SUBTRACTION in decimal: ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(* a b))
(print "MULTIPLICATION in binary: ")
(format t " ~b" c )
(print "MULTIPLICATION IN DECIMAL: ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(* a a))
(print "SQUARE in binary: ")
(format t " ~b" c )
(print "SQUARE OF 1st NUMBER : ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(* b b b))
(print "CUBE OF 2ND NUMBER : ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(sin a))
(print "SINE OF 1ST NUMBER : ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(tan a))
(print "TAN OF 1ST NUMBER : ")
(print c)))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(cos a))
(print "COSINE OF 1ST NUMBER : ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(acos a))
(print "SEC OF 1ST NUMBER : ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(asin a))
(print "COSEC OF 1ST NUMBER : ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(atan a))
(print "COT OF 1ST NUMBER : ")
(print c))))
(sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(min a b))
(print "MINIMUM NUMBER : ")
(print c))) (sb-thread:make-thread(lambda()(progn(sleep 0)
(setf c(max a b))
(print "MAXIMUM NUMBER : ")
(print c))))
(exit)
No comments:
Post a Comment