equal
deleted
inserted
replaced
100 |
100 |
101 makeList:size |
101 makeList:size |
102 |first prev this| |
102 |first prev this| |
103 |
103 |
104 size == 0 ifTrue:[^ nil]. |
104 size == 0 ifTrue:[^ nil]. |
|
105 |
105 first := prev := self car:nil cdr:nil. |
106 first := prev := self car:nil cdr:nil. |
106 2 to:size do:[:n | |
107 2 to:size do:[:n | |
107 this := self car:nil cdr:nil. |
108 this := self car:nil cdr:nil. |
108 prev cdr:this. |
109 prev cdr:this. |
109 prev := this |
110 prev := this |
110 ]. |
111 ]. |
111 ^ first |
112 ^ first |
112 |
113 |
113 " |
114 " |
|
115 (self makeList:0) size |
|
116 (self makeList:1) size |
114 (self makeList:100) size |
117 (self makeList:100) size |
115 (self makeList:1000) size |
118 (self makeList:1000) size |
116 (self makeList:10000) size |
119 (self makeList:10000) size |
117 " |
120 " |
118 |
121 |
119 "Created: / 28-04-2011 / 00:37:11 / cg" |
122 "Created: / 28-04-2011 / 00:37:11 / cg" |
120 "Modified: / 29-04-2011 / 10:37:41 / cg" |
123 "Modified: / 29-04-2011 / 10:38:11 / cg" |
121 ! ! |
124 ! ! |
122 |
125 |
123 !Cons class methodsFor:'sExpressions'! |
126 !Cons class methodsFor:'sExpressions'! |
124 |
127 |
125 readLispFrom:aStream |
128 readLispFrom:aStream |
603 ! ! |
606 ! ! |
604 |
607 |
605 !Cons class methodsFor:'documentation'! |
608 !Cons class methodsFor:'documentation'! |
606 |
609 |
607 version |
610 version |
608 ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.16 2011-04-29 08:37:54 cg Exp $' |
611 ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.17 2011-04-29 08:38:17 cg Exp $' |
609 ! |
612 ! |
610 |
613 |
611 version_CVS |
614 version_CVS |
612 ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.16 2011-04-29 08:37:54 cg Exp $' |
615 ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.17 2011-04-29 08:38:17 cg Exp $' |
613 ! ! |
616 ! ! |