equal
deleted
inserted
replaced
670 " |
670 " |
671 |
671 |
672 "Created: / 26-07-2012 / 23:32:52 / cg" |
672 "Created: / 26-07-2012 / 23:32:52 / cg" |
673 ! |
673 ! |
674 |
674 |
675 size |
675 length |
676 "for smalltalkers: the lists length" |
676 "the list's length" |
677 |
677 |
678 |l p rest| |
678 |len p rest| |
679 |
679 |
680 l := 1. |
680 len := 1. |
681 p := self. |
681 p := self. |
682 [(rest := p cdr) notNil] whileTrue:[ |
682 [(rest := p cdr) notNil] whileTrue:[ |
683 l := l + 1. |
683 len := len + 1. |
684 p := rest |
684 p := rest |
685 ]. |
685 ]. |
686 ^ l |
686 ^ len |
|
687 |
|
688 " |
|
689 (Cons fromArray:#(1)) length |
|
690 (Cons fromArray:#(1 2 3 4)) length |
|
691 " |
|
692 ! |
|
693 |
|
694 size |
|
695 "for smalltalkers: the list's length" |
|
696 |
|
697 ^ self length |
687 |
698 |
688 " |
699 " |
689 (Cons fromArray:#( )) size |
700 (Cons fromArray:#( )) size |
690 (Cons fromArray:#(1)) size |
701 (Cons fromArray:#(1)) size |
691 (Cons fromArray:#(1 2 3 4)) size |
702 (Cons fromArray:#(1 2 3 4)) size |
699 ! ! |
710 ! ! |
700 |
711 |
701 !Cons class methodsFor:'documentation'! |
712 !Cons class methodsFor:'documentation'! |
702 |
713 |
703 version |
714 version |
704 ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.22 2014-04-30 11:03:07 cg Exp $' |
715 ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.23 2014-06-25 17:07:25 cg Exp $' |
705 ! |
716 ! |
706 |
717 |
707 version_CVS |
718 version_CVS |
708 ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.22 2014-04-30 11:03:07 cg Exp $' |
719 ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.23 2014-06-25 17:07:25 cg Exp $' |
709 ! ! |
720 ! ! |
710 |
721 |