language: Smalltalk (gst 3.1)
date: 109 days 6 hours ago
link:
visibility: public
1
2
3
4
5
6
7
8
9
10
11
|c number|
[
   number:=0.
   [ (c := stdin next) asciiValue ~= 10 ]
   whileTrue:
   [number := (number * 10) + (c asciiValue) - 48.].
   number ~= 42
]
whileTrue:
[Transcript show: number printString; cr.]
!
  • upload with new input
  • result: Success     time: 0.02s    memory: 74176 kB     returned value: 0

    1
    2
    10
    42
    11
    
    1
    2
    10