fork download 
  1. |c number|
  2. [
  3. 	number:=0.
  4. 	[ (c := stdin next) asciiValue ~= 10 ]
  5. 	whileTrue:
  6. 	[number := (number * 10) + (c asciiValue) - 48.].
  7. 	number ~= 42
  8. ]
  9. whileTrue:
  10. [Transcript show: number printString; cr.]
  11. !
Success #stdin #stdout 0.01s 7896KB
comments (?)
stdin 
1
2
10
42
11
stdout 
1
2
10
https://ideone.com/bSk4VN
language:
Smalltalk (gst 3.2.5)
created:
12 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!