Positive decimal integers with the digit 1 occurring exactly twice: Difference between revisions
Content added Content deleted
(→Pascal: replace complicated solution with straightforward implementation working with any dialect of Pascal) |
(J) |
||
Line 250: | Line 250: | ||
Found 27 such numbers. |
Found 27 such numbers. |
||
</pre> |
</pre> |
||
=={{header|J}}== |
|||
Generating the numbers as the cartesian product of the eligible digits (and sorting the result, for "prettiness"): |
|||
<lang J> /:~10 #. >,{~.(2 1#1;i.10){~(! A.&i. ])3 |
|||
11 101 110 111 111 111 112 113 114 115 116 117 118 119 121 131 141 151 161 171 181 191 211 311 411 511 611 711 811 911</lang> |
|||
=={{header|jq}}== |
=={{header|jq}}== |
||
Line 306: | Line 311: | ||
911 |
911 |
||
</pre> |
</pre> |
||
=={{header|Julia}}== |
=={{header|Julia}}== |