![getOrderHistory
? 「関数を定義」とあるので、全体をクロージャに
注文クラスを導入せず、辞書を返している
getOrderHistory := [:src | | rows rowStream |
rows := OrderedCollection new.
rowStream := src readStream.
[rowStream atEnd]
whileFalse: [rows add: ((rowStream nextLine) findTokens: ';')].
rows collect: [:eachRow |
Dictionary new in: [:map |
#(#OrderId #CurryMenu #Category
#RiceWeight #HotFlavor #Toppings)
paddedWith: eachRow do: [:a :b | map add: (a->b)].
map]
].
].](https://image.slidesharecdn.com/cross2014-140202062743-phpapp02/85/Smalltalk-4-320.jpg)
![A1
? 「辛さ」が2以上の注文を抽出し、
その「注文 ID」をすべて取得せよ
注文についてのクラスを導入せず、辞書を返している
orders := getOrderHistory value: source.
orders
select: [:each | (each at: #HotFlavor) asInteger >= 2]
thenCollect: [:each | each at: #OrderId].](https://image.slidesharecdn.com/cross2014-140202062743-phpapp02/85/Smalltalk-5-320.jpg)
![A2
? 「分類」ごとに「ライスの量」の平均を取得せよ。
なお、平均値が大きい順に並べる
((orders groupBy: [:each | (each at: #Category)]
having: [:each | true])
collect: [:each |
(each collect: [:e | e at: #RiceWeight]) average])
associations sorted: [:a :b | a value > b value]](https://image.slidesharecdn.com/cross2014-140202062743-phpapp02/85/Smalltalk-6-320.jpg)
![A3
? 「メニュー」がロースカツの注文について、
各「トッピング」の出現回数をカウント
Bag new in: [:bag |
(orders select:
[:each | (each at: #CurryMenu) = 'ロースカツ'])
do: [:each | (each at: #Toppings)
ifNotNil:[:toppings | bag addAll:
(toppings findTokens: ',')]].
bag sortedElements]](https://image.slidesharecdn.com/cross2014-140202062743-phpapp02/85/Smalltalk-7-320.jpg)
![パイプラインの実装(1)
? >> というメソッドをBlockClosureに定義
>> otherBlock
^ otherBlock value: self value
? Objectにも定義
>> other
^ [self] >> other](https://image.slidesharecdn.com/cross2014-140202062743-phpapp02/85/Smalltalk-9-320.jpg)
![パイプラインの実装(2)
? BlockClosureにselectやらcollectを定義
collect
^ [:col | col collect: self]
select
^ [:col | col select: self]
同様に、gather, sortedも用意
? できた!!](https://image.slidesharecdn.com/cross2014-140202062743-phpapp02/85/Smalltalk-10-320.jpg)
![A1
? 「辛さ」が2以上の注文を抽出し、
その「注文 ID」をすべて取得せよ
注文についてのクラスを導入せず、辞書を返している
orders := getOrderHistory value: source.
orders
>> [:each | (each at: #HotFlavor) asInteger >= 2] select
>> [:each | each at: #OrderId] collect.](https://image.slidesharecdn.com/cross2014-140202062743-phpapp02/85/Smalltalk-11-320.jpg)
![A2
? 「分類」ごとに「ライスの量」の平均を取得せよ。
なお、平均値が大きい順に並べる
(orders groupBy: [:each | (each at: #Category)]
having: [:each | true])
>> [:each |
(each collect: [:e | e at: #RiceWeight]) average]) collect
>> #associations
>> [:a :b | a value > b value] sorted](https://image.slidesharecdn.com/cross2014-140202062743-phpapp02/85/Smalltalk-12-320.jpg)
![A3
? 「メニュー」がロースカツの注文について、
各「トッピング」の出現回数をカウント
(orders
select: [:each | (each at: #CurryMenu) = 'ロースカツ'])
>> [:each | (each at: #Toppings) ifNil:[#()] ifNotNil:
[:toppings | (toppings findTokens: ',')]] collect
>> [:each | each] gather
>> #asBag
>> #sortedElements](https://image.slidesharecdn.com/cross2014-140202062743-phpapp02/85/Smalltalk-13-320.jpg)
厂尘补濒濒迟补濒办で文字列解析?集计
- 1. CROSS 2014 言語CROSS Smalltalkによる カレー問題別解解説 2014 SoftUmeYa, LLC Masashi Umezawa
- 3. 解答の方針 ?関数型言語っぽく書く ブロッククロージャやコレクション系の プロトコルを駆使 変数の代入は極力避ける ちょっとやり過ぎでアレな感じにする 結構まともになった... ? Smalltalk for Lispers – http://live.exept.de/doc/online/english/programming/stForLi spers.html クロージャ駆使はSmalltalk的スタイル
- 4. getOrderHistory ? 「関数を定義」とあるので、全体をクロージャに 注文クラスを導入せず、辞書を返している getOrderHistory := [:src | | rows rowStream | rows := OrderedCollection new. rowStream := src readStream. [rowStream atEnd] whileFalse: [rows add: ((rowStream nextLine) findTokens: ';')]. rows collect: [:eachRow | Dictionary new in: [:map | #(#OrderId #CurryMenu #Category #RiceWeight #HotFlavor #Toppings) paddedWith: eachRow do: [:a :b | map add: (a->b)]. map] ]. ].
- 5. A1 ? 「辛さ」が2以上の注文を抽出し、 その「注文 ID」をすべて取得せよ 注文についてのクラスを導入せず、辞書を返している orders := getOrderHistory value: source. orders select: [:each | (each at: #HotFlavor) asInteger >= 2] thenCollect: [:each | each at: #OrderId].
- 6. A2 ? 「分類」ごとに「ライスの量」の平均を取得せよ。 なお、平均値が大きい順に並べる ((orders groupBy: [:each | (each at: #Category)] having: [:each | true]) collect: [:each | (each collect: [:e | e at: #RiceWeight]) average]) associations sorted: [:a :b | a value > b value]
- 7. A3 ? 「メニュー」がロースカツの注文について、 各「トッピング」の出現回数をカウント Bag new in: [:bag | (orders select: [:each | (each at: #CurryMenu) = 'ロースカツ']) do: [:each | (each at: #Toppings) ifNotNil:[:toppings | bag addAll: (toppings findTokens: ',')]]. bag sortedElements]
- 9. パイプラインの実装(1) ? >> というメソッドをBlockClosureに定義 >> otherBlock ^ otherBlock value: self value ? Objectにも定義 >> other ^ [self] >> other
- 10. パイプラインの実装(2) ? BlockClosureにselectやらcollectを定義 collect ^ [:col | col collect: self] select ^ [:col | col select: self] 同様に、gather, sortedも用意 ? できた!!
- 11. A1 ? 「辛さ」が2以上の注文を抽出し、 その「注文 ID」をすべて取得せよ 注文についてのクラスを導入せず、辞書を返している orders := getOrderHistory value: source. orders >> [:each | (each at: #HotFlavor) asInteger >= 2] select >> [:each | each at: #OrderId] collect.
- 12. A2 ? 「分類」ごとに「ライスの量」の平均を取得せよ。 なお、平均値が大きい順に並べる (orders groupBy: [:each | (each at: #Category)] having: [:each | true]) >> [:each | (each collect: [:e | e at: #RiceWeight]) average]) collect >> #associations >> [:a :b | a value > b value] sorted
- 13. A3 ? 「メニュー」がロースカツの注文について、 各「トッピング」の出現回数をカウント (orders select: [:each | (each at: #CurryMenu) = 'ロースカツ']) >> [:each | (each at: #Toppings) ifNil:[#()] ifNotNil: [:toppings | (toppings findTokens: ',')]] collect >> [:each | each] gather >> #asBag >> #sortedElements