WorkSpace 에서 끄적거리기....
"1.OrderCollection 객체생성"
housekeepingbook := OrderedCollection new.
"2~3.항목추가"
housekeepingbook add: #('복권' -5000 '2006-09-21');
add: #('복권당첨' 50000 '2006-09-21');
add: #('두부' -500 '2006-09-22');
add: #('피자' -15000 '2006-09-23');
add: #('보너스' 100000 '2006-09-24');
add: #('화장지' -7000 '2006-09-24');
add: #('전기세' -25000 '2006-09-24');
add: #('키보드' -15000 '2006-09-25');
add: #('화장품' -55000 '2006-09-25');
add: #('전구' -500 '2006-09-26').
"4.항목 갯수"
housekeepingbook size.
"5.첫번째 항목"
housekeepingbook at: 1.
"6.첫번째 항목의 금액"
(housekeepingbook at: 1) at: 2.
"7.전체 항목의 금액"
housekeepingbook collect: [:each| each at: 2 ]
"8.전체 금액의 합"
(housekeepingbook collect: [:each| each at: 2 ]) inject: 0 into: [:sum :each| each + sum ]
"9.항목의 평균 금액"
avg := ((housekeepingbook collect: [:each| each at: 2 ]) inject: 0 into: [:sum :each| each + sum ]) / housekeepingbook size
"10.흑자 또는 적자"
(avg > 0) ifTrue: ['흑자'] ifFalse: ['적자'].
'Programing > Smalltalk' 카테고리의 다른 글
가계부 만들기 - 04 (0) | 2006.10.08 |
---|---|
가계부 만들기 - 03 (0) | 2006.10.08 |
가계부 만들기 - 02 (0) | 2006.10.08 |
변수와 메세지 그리고 이벤트... (0) | 2006.05.15 |
재밌다... (0) | 2006.05.07 |