프로그래밍잔치/Small Talk

Object subclass: #HelloWorld
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'HelloWorld'

printHello
	Transcript show: 'Hello World'.

hello := HelloWorld new.
hello printHello.

~cpp 
Object subclass: #GuGuDan
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'GuGuDan

~cpp 
printGuGu
	2 to: 9 do:
	[
		:i | Transcript cr; show: i asString, 'dan'.

		1 to: 9 do:
		[
			:j | Transcript cr; show: i asString, ' * ', j asString, ' = ', (i*j) asString.
		].
	].

~cpp 
gugu := GuGuDan new.
gugu printGuGu.