Revision as of 16:59, 18 November 2021 (view source) rosettacode>Amarok (Added solution for Action!) ← Older edit		Revision as of 23:09, 8 January 2022 (view source) ReeceGoding (talk \| contribs) m (→‎{{header\|R}}: Syntax highlighting.) Newer edit →
Line 967: =={{header\|R}}== <lang Rrsplus>factors <- function(n) c(Filter(function(x) n %% x == 0, seq_len(n %/% 2)), n) isCoprime <- function(p, q) all(intersect(factors(p), factors(q)) == 1) output <- data.frame(p = c(21, 17, 36, 18, 60), q = c(15, 23, 12, 29, 15))

Coprimes: Difference between revisions

Coprimes (view source)