fork download
copy 
  1. (loop 
  2. 	for line = (read-line *staard-input* nil nil) 
  3. 	while (not (equal line "42")) 
  4. 	do (format t "~A~%" line))
Runtime error #stdin #stdout #stderr 0s 535040KB
comments (?)
stdin
copy 
1
2
10
42
11
7
stdout
copy 
Standard output is empty
stderr
copy 
*** - PSETQ: variable *STAARD-INPUT* has no value
https://ideone.com/5lzvrP
language:
Common Lisp (clisp 2.49.92)
created:
7 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!