Sort a list of object identifiers: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,235: / Line 1,235: @@
 sort
+len for
+    var i
+    i get
+    "" var string
+    len for
+        get tostr "." chain string swap chain var string
+    endfor
+    drop
+    string 0 del i set
+endfor
 len for get print nl endfor