Added some test code in "make check" (test objut.m file equivalent to the following Smalltalk code) for perfect numbers 6,28,496,8128. Will add more tests in the future to objut.m
d := #(2 3 5 7). c := OrderedCollection new. d do:[ :p | c add:((2 raisedToInteger:(p-1)) * ((2 raisedToInteger:p) - 1)). ]
Log in to post a comment.
Added some test code in "make check" (test objut.m file equivalent to the following Smalltalk code) for perfect numbers 6,28,496,8128. Will add more tests in the future to objut.m