GNU Smalltalk

'헬로 월드!' 디스플레이 Nl 

리터럴을 포함한 모든 것이 객체이기 때문에 다음과 같이 동작합니다. -199 복근                                                "199" 'gst 이 멋져' 크기                                      "11" '슬릭' 색인: c달러                                     "4" '좋아. 요일 있습니까?''t 그거요?' as Lower Case(소문자) 자산. 정렬된 컬렉션 asString  "어플리케이션?" 

a := #(1 '안녕' 3.14 1 2 (4 5))  a 다음 위치에 있습니다. 3        "3.14" a 거꾸로 하다      ((45) 2 1 3.14 'hi' 1) a 자산.        세트 (1 'hi' 3.14 2 (4 5 ) ) 

hash : = 사전: { 'water' -> 'water'에서 왔습니다.'fire' -> 'hot' 해시 위치: 'fire' "Prints: hot" 해시 키AndValuesDo: [:k:v('%1은 %2'% {k. v}) displayNl] "인쇄: 물은 뜨겁다" 해시 제거Key: '물' "Deletes 'water' -> wet"

"블록 기억":= [:name('Hello, %1!'% {name }) displayNl ]을(를) 기억하십시오."적절한 때가 되면, 폐쇄를 선언하라!" "world" "=> "Hello, world!"라는 값을 기억하십시오.

 정수 확장 [asClosure [ value value : = self]입니다.^{ [ :x value : = x 。[ value ] ] ]블록 : = 10 asClosure 입니다.setter : =가 먼저 차단합니다.getter : = 블록초getter 값 "=> 10" 설정 값: 21 "=> 21" getter 값 "=> 21"

 정수 확장 [이벤트: even: even Block ifOdd: odd Block [ ^self if True : [ even Block value : self ]ifFalse : [ odd Block value : self ]]]

10 ifEven : [ : n n / 2 ] ifOd : [ : n n * 3 + 1 ]"=> 5"

array : = # ( 1 'hi' 3.14) array do : [ : item item displayNl ] " = > 1" "= > hi" " = > 3.14" (3 ~ 6 ) do : [ : item item displayNl ] " = > 3" " = > 5 " > 6"

#(135) 주입: 10: [ : sum : sum + element ]"=> 19"에 주입

(파일명: 'file.txt')와 WriteStreamDo: [:file file nextPutAll: 'Writeed some text']; nl] "파일은 자동으로 여기서 닫힙니다"(파일명: 'file.txt') 행Do: [: 각 디스플레이 nl] "=> 일부 텍스트를 썼습니다." 

(1 ~ : 10 ) collect : [ : x x square ]"=> [1, 4, 9, 16, 25, 36, 49, 64, 81, 100]"

매그니튜드 서브 클래스:Person [name age Person class >> name : age [ ^self new name : name ; age : age ; ]name [ ^self age ]name : value [ name : = value ]나이 : age : value [ ]프린트 온 : aStream [ nextputall ] ( % )age } ]그룹 : = {개인명 : '단'나이 : 23세입니다.개인명: '마크' 나이: 63세.사용자 이름: '코드' 사용 기간: 16. }. 그룹 asSortedCollection 역방향

자신 멈추다 

자신 정지: '메시지입니다.' 자신 에러: '메시지입니다.' 

에러 신호. 에러 신호: '불법적인 논쟁!' 

[ something to ] : exception do : [ : ex handle ex in ex ]

[할 일] : 경고 실행 : [ : ex 처리 예외 in ex ]

[오류 신호: 'foo' on: 오류 실행: [:ex ex return: 5](경고 신호: 'now what?' printNl "=> nl" [(경고 신호: 'now what?' printNl] on: 경고 실행: [: ex resume: 5 ] "=> 5"