Jacobsthal numbers: Difference between revisions

Content added Content deleted
imported>Maxima enthusiast
No edit summary
m (→‎{{header|Wren}}: Minor tidy)
Line 3,410: Line 3,410:
{{libheader|Wren-seq}}
{{libheader|Wren-seq}}
{{libheader|Wren-fmt}}
{{libheader|Wren-fmt}}
<syntaxhighlight lang="ecmascript">import "./big" for BigInt
<syntaxhighlight lang="wren">import "./big" for BigInt
import "./seq" for Lst
import "./seq" for Lst
import "./fmt" for Fmt
import "./fmt" for Fmt
Line 3,420: Line 3,420:
System.print("First 30 Jacobsthal numbers:")
System.print("First 30 Jacobsthal numbers:")
var js = (0..29).map { |i| jacobsthal.call(i) }.toList
var js = (0..29).map { |i| jacobsthal.call(i) }.toList
for (chunk in Lst.chunks(js, 5)) Fmt.print("$,12i", chunk)
Fmt.tprint("$,12i", js, 5)


System.print("\nFirst 30 Jacobsthal-Lucas numbers:")
System.print("\nFirst 30 Jacobsthal-Lucas numbers:")
var jsl = (0..29).map { |i| jacobsthalLucas.call(i) }.toList
var jsl = (0..29).map { |i| jacobsthalLucas.call(i) }.toList
for (chunk in Lst.chunks(jsl, 5)) Fmt.print("$,12i", chunk)
Fmt.tprint("$,12i", jsl, 5)


System.print("\nFirst 20 Jacobsthal oblong numbers:")
System.print("\nFirst 20 Jacobsthal oblong numbers:")
var oblongs = (0..19).map { |i| js[i] * js[i+1] }.toList
var oblongs = (0..19).map { |i| js[i] * js[i+1] }.toList
for (chunk in Lst.chunks(oblongs, 5)) Fmt.print("$,14i", chunk)
Fmt.tprint("$,14i", oblongs, 5)


var primes = js.where { |j| j.isProbablePrime(10) }.toList
var primes = js.where { |j| j.isProbablePrime(10) }.toList