Composite numbers k with no single digit factors whose factors are all substrings of k: Difference between revisions

Content added Content deleted
(→‎{{header|Wren}}: Added libheaders and some tweaks.)
Line 189: Line 189:
=={{header|Wren}}==
=={{header|Wren}}==
{{libheader|Wren-math}}
{{libheader|Wren-math}}
{{libheader|Wren-seq}}
{{libheader|Wren-fmt}}
<lang ecmascript>import "/math" for Int
<lang ecmascript>import "/math" for Int
import "/seq" for Lst
import "/fmt" for Fmt
import "/fmt" for Fmt


var count = 0
var count = 0
var k = 11
var k = 11 * 11
var res = []
var res = []
while (count < 20) {
while (count < 20) {
Line 202: Line 205:
var factors = Int.primeFactors(k)
var factors = Int.primeFactors(k)
if (factors.count > 1) {
if (factors.count > 1) {
Lst.prune(factors)
var s = k.toString
var s = k.toString
var includesAll = true
var includesAll = true