Self numbers: Difference between revisions
Content added Content deleted
(→{{header|Wren}}: + standard ml) |
|||
| Line 1,079: | Line 1,079: | ||
val rec sumdgt = fn 0 => 0 | n => Int.rem (n, 10) + sumdgt (Int.quot(n ,10)); |
val rec sumdgt = fn 0 => 0 | n => Int.rem (n, 10) + sumdgt (Int.quot(n ,10)); |
||
val rec isSelf = fn ([],l1,l2) => [] |
val rec isSelf = fn ([],l1,l2) => [] |
||
| (x::tt,l1,l2) => |
| (x::tt,l1,l2) => if exists (fn i=>i=x) l1 orelse exists (fn i=>i=x) l2 |
||
then ( isSelf (tt,l1,l2)) else x::isSelf (tt,l1,l2) |
then ( isSelf (tt,l1,l2)) else x::isSelf (tt,l1,l2) ; |
||
val rec partcount = fn (n, listIn , count , selfs) => |
val rec partcount = fn (n, listIn , count , selfs) => |
||
| Line 1,104: | Line 1,104: | ||
1022727208 |
1022727208 |
||
</pre> |
</pre> |
||
=={{header|Wren}}== |
=={{header|Wren}}== |
||
{{trans|Go}} |
{{trans|Go}} |
||