Numbers divisible by their individual digits, but not by the product of their digits.: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add 8086 assembly) |
Not a robot (talk | contribs) (Add Snobol) |
||
Line 607: | Line 607: | ||
</pre> |
</pre> |
||
=={{header|Snobol}}== |
|||
<lang snobol> define('divis(n)i,d,p') :(divis_end) |
|||
divis p = 1 |
|||
i = n |
|||
digit d = remdr(i,10) |
|||
p = ne(d,0) eq(remdr(n,d),0) p * d :f(freturn) |
|||
i = gt(i,9) i / 10 :s(digit) |
|||
ne(remdr(n,p)) :s(return)f(freturn) |
|||
divis_end |
|||
n = 1 |
|||
loop output = divis(n) n |
|||
n = lt(n,1000) n + 1 :s(loop) |
|||
end</lang> |
|||
{{out}} |
|||
<pre style='height:50ex;'>22 |
|||
33 |
|||
44 |
|||
48 |
|||
55 |
|||
66 |
|||
77 |
|||
88 |
|||
99 |
|||
122 |
|||
124 |
|||
126 |
|||
155 |
|||
162 |
|||
168 |
|||
184 |
|||
222 |
|||
244 |
|||
248 |
|||
264 |
|||
288 |
|||
324 |
|||
333 |
|||
336 |
|||
366 |
|||
396 |
|||
412 |
|||
424 |
|||
444 |
|||
448 |
|||
488 |
|||
515 |
|||
555 |
|||
636 |
|||
648 |
|||
666 |
|||
728 |
|||
777 |
|||
784 |
|||
824 |
|||
848 |
|||
864 |
|||
888 |
|||
936 |
|||
999</pre> |