Composite numbers k with no single digit factors whose factors are all substrings of k: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 113: | Line 113: | ||
{{works with|Delphi|6.0}} |
{{works with|Delphi|6.0}} |
||
{{libheader|SysUtils,StdCtrls}} |
{{libheader|SysUtils,StdCtrls}} |
||
Brute force method with a few obvious optimizations. Could be speeded up a lot, with some work. |
|||
<syntaxhighlight lang="Delphi"> |
<syntaxhighlight lang="Delphi"> |
||
Line 203: | Line 203: | ||
Elapsed Time: 02:39.291 min |
Elapsed Time: 02:39.291 min |
||
</pre> |
</pre> |
||
=={{header|F_Sharp|F#}}== |
=={{header|F_Sharp|F#}}== |