fork download
copy 
  1. (in NIL
  2. 	(loop
  3. 		(setq N (format (read)))
  4. 		(T (= "42" N))
  5. 		(prinl N))
  6.    	)
Success #stdin #stdout 0.01s 5284KB
comments (?)
stdin
copy 
1
2
88
42
10
stdout
copy 
1
2
88
https://ideone.com/fe2n6b
language:
Pico Lisp (pico 18.12.27)
created:
4 days 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!