TEST - SPOJ 1. Life, the Universe, and Everything

TEST - SPOJ 1. Life, the Universe, and Everything

Your program is to use the brute-force approach in order to find the Answer to Life, the Universe, and Everything. More precisely... rewrite small numbers from input to output. Stop processing input after reading in the number 42. All numbers at input are integers of one or two digits.

Example

Input:
1
2
88
42
99

Output:
1
2
88

初次尝试 Common Lisp

LISP SBCL

  
  
  
  

   
   
   
   
   1
   
   
   
   
   
   
   
   (loop

   
   
   
   2
   
   
   
    (let ((a (read
   
   
   
   -
   
   
   
   line)))

   
   
   
   3
   
   
   
     (when (
   
   
   
   string
   
   
   
   =
   
   
   
    a 
   
   
   
   "
   
   
   
   42
   
   
   
   "
   
   
   
   ) (
   
   
   
   return
   
   
   
   ))

   
   
   
   4
   
   
   
     (format t 
   
   
   
   "
   
   
   
   ~a~%
   
   
   
   "
   
   
   
    a)))

   
   
   
   5
   
   
   
   

   
   
   
   6