DouKaku?

Comment detail

隣り合う二項の差 (Nested Flatten)

Squeak Smalltalk で。

1
2
3

| xs |
xs := #(3 1 4 1 5 9 2 6 5).
^xs overlappingPairsCollect: [:a :b | b - a]

nobsun の #2400 を見て、そうだ、こんなふうにする手もあったな…と。

1
2
3

| diff |
diff := [:xs | xs allButFirst - xs allButLast].
^diff value: #(3 1 4 1 5 9 2 6 5)   "=> #(-2 3 -3 4 4 -7 4 -1) "

Index

Feed

Other

Link

Pathtraq

loading...

Creative Commons License

このサイトの内容は、クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]