Coprimes: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
ReeceGoding (talk | contribs) (Added R. Very short.) |
||
Line 896: | Line 896: | ||
60 and 15 are not coprime. |
60 and 15 are not coprime. |
||
</pre> |
</pre> |
||
=={{header|R}}== |
|||
<lang R>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)) |
|||
print(transform(output, "Coprime" = ifelse(mapply(isCoprime, p, q), "Yes", "No")))</lang> |
|||
{{out}} |
|||
<pre> p q Coprime |
|||
1 21 15 No |
|||
2 17 23 Yes |
|||
3 36 12 No |
|||
4 18 29 Yes |
|||
5 60 15 No</pre> |
|||
=={{header|Racket}}== |
=={{header|Racket}}== |