hyung-hwan/moo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

extended Collection with asOrderedCollection

Browse Source
This commit is contained in:
hyunghwan.chung 2019-02-21 03:49:31 +00:00
parent fdda5c94f3
commit 04e28e979a
2 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
moo/kernel/Collect.moo
View File

@ -722,6 +722,7 @@ class OrderedCollection(SequenceableCollection)
} *)
}
## -------------------------------------------------------------------------------
class Set(Collection)
@ -1543,3 +1544,17 @@ class LinkedList(Collection)
^Error.Code.ENOENT
}
}
extend Collection
{
## ===================================================================
## CONVERSION
## ===================================================================
method asOrderedCollection
{
| coll |
coll := OrderedCollection new: self size.
self do: [:each | coll addLast: each ].
^coll
}
}

12
moo/kernel/test-001.moo
View File

@ -250,7 +250,19 @@ extend MyObject
[ (-9p10.123 scale) = (-10.123000000 scale) ],
[ (+3p100.1 + 16rffff + +5p1.22 + -5p1.223) = 65635.09700 ],
## 80-84
[ (30p2123.12 asString) = '2123.120000000000000000000000000000' ],
[ (+30p2123.12 asString) = '2123.120000000000000000000000000000' ],
[ (-30p2123.12 asString) = '-2123.120000000000000000000000000000' ],
## =========================
[
| k |
k := String new.
(%( 1 + 2, -21391239218392 * +291382913821, 19p10 div: 3 ) asOrderedCollection) doWithIndex: [:each :index | k := k & (index asString) & '=>' & (each asString) & ' '. ].
k = '0=>3 1=>-6233041613697111534195832 2=>3.3333333333333333333 '.
],
[
| b |
b := [:n | (n > 0) ifTrue: [ n * (b value: n - 1)] ifFalse: [1]].