1
2
3
4
5
6
7
8
9
|c number|
[
   number:=0.
   [ (c := stdin next) asciiValue ~= 10 ]
   whileTrue:
   [number := (number * 10) + (c asciiValue) - 48.].
   number ~= 42
]
whileTrue:
 ...

1
2
3
4
5
6
7
8
#include<io>
 
using namespace std;
 
int main(){
        wtf?;
        
}

1
999 factorial display

1
1999 factorial display

1
2999 factorial display

1
6999 factorial display

1
699 factorial display

1
69 factorial display

1
69 factorial

1
1 display

1
3 + 4 * 2

1
3 + 4

1
Transcript show: 1 + 2 * 3

1
1 + 2 * 3

1
2
3
4
5
6
7
8
9
|c number|
[
   number:=0.
   [ (c := stdin next) asciiValue ~= 10 ]
   whileTrue:
   [number := (number * 10) + (c asciiValue) - 48.].
   number ~= 42
]
whileTrue:
 ...

1
2
3
4
5
6
7
8
9
|c number|
[
   number:=0.
   [ (c := stdin next) asciiValue ~= 10 ]
   whileTrue:
   [number := (number * 10) + (c asciiValue) - 48.].
   number ~= 42
]
whileTrue:
 ...

1
2
3
4
5
6
7
class Main {
  public static void main(String[] argv) throws Exception {
 
          System.out.println("object is an array");
    
  }
}

1
 

1
2
3
4
5
6
7
8
9
|c number|
[
   number:=0.
   [ (c := stdin next) asciiValue ~= 10 ]
   whileTrue:
   [number := (number * 10) + (c asciiValue) - 48.].
   number ~= 42
]
whileTrue:
 ...

1
2
a=2+2
transcript show: a

1
2+2

1
Transcript show: (-9 mod: 5) printString; cr!

1
Transcript show: (-9 % 5) printString; cr!

1
2
3
4
5
6
7
8
9
|c number|
[
   number:=0.
   [ (c := stdin next) asciiValue ~= 10 ]
   whileTrue:
   [number := (number * 10) + (c asciiValue) - 48.].
   number ~= 42
]
whileTrue:
 ...

1
2
3
4
5
isPerfect [
     ^ ( ( ( 2 to: 1/>self // 2 + 1) select: [ :a | (1/>self rem: a) = 0 ] )
         inject: 1 into: [ :a :b | a + b ] ) = 1/>self
  ]
].

1
2
3
4
5
6
7
8
9
Integer extend [
 
  isPerfectC [ |tot| tot := 1.
     (2 to: (1/>self sqrt) + 1) do: [ :i |
        (1/>self rem: i) = 0
        ifTrue: [ |q|
                  tot := tot + i.
                  q := 1/>self // i. 
                  q > i ifTrue: [ tot := tot + q ]
 ...

1
2
3
4
5
6
7
8
9
Integer extend [
 
  isPerfectC [ |tot| tot := 1.
     (2 to: (1/>self sqrt) + 1) do: [ :i |
        (1/>self rem: i) = 0
        ifTrue: [ |q|
                  tot := tot + i.
                  q := 1/>self // i. 
                  q > i ifTrue: [ tot := tot + q ]
 ...

1
 #(1 2 3 4)

1
Transcript show: 5000 factorial asString.

1
2
Transcript clear.
Transcript show: 5000 factorial asString.