File: Sorting.st

package info (click to toggle)
gnu-smalltalk 3.1-6
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 33,300 kB
  • ctags: 13,999
  • sloc: ansic: 88,106; sh: 23,223; asm: 7,889; perl: 4,493; cpp: 3,539; awk: 1,483; yacc: 1,355; xml: 1,272; makefile: 1,192; lex: 843; sed: 258; objc: 124
file content (9 lines) | stat: -rw-r--r-- 249 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
| k a |
k := Symbol allInstances.
a := k collect: [ :each | each asString hash ].
^Smalltalk at: #test put: a!

ObjectMemory compact!

test asSortedCollection inject: '' into: [ :old :each |
	old > each ifTrue: [ old printNl. each printNl ]. each]!