Self numbers: Difference between revisions

Content added Content deleted
Line 1,096: Line 1,096:
end;
end;


map ((fn s => print (s ^ " ")) o Int.toString o selfNumberNr) (tabulate (50,fn i=>i+1)) ;
app ((fn s => print (s ^ " ")) o Int.toString o selfNumberNr) (tabulate (50,fn i=>i+1)) ;
selfNumberNr 100000000 ;
selfNumberNr 100000000 ;
</lang>
</lang>