untitled.gif welcome towards my cool internet house site: AND FINALY (zoom)

[ back | refresh | last 25 | post new ]

welcome to my cool internet home sit is prosecǖtedt to a jam

VALID X M L
Hair Cares Product!!!!!
AND FINALY
[29825] by "max cooking" (ce-web1.wesleyan.edu)   on Fri 12 Dec 2003 17:24:03     [ reply ] [ up ]
perfect number tester:

fun perfect x =
if addlist (getfactor x) = x
then true
else false;

perfect number <= x lister:

fun perfectlist 0 = []
| perfectlist x =
if perfect x
then x :: (perfectlist (x-1))
else (perfectlist (x-1));