Tau function: Difference between revisions

Content added Content deleted
(Added solution for Action!)
m (→‎{{header|R}}: Syntax highlighting.)
Line 1,203: Line 1,203:
=={{header|R}}==
=={{header|R}}==
This only takes one line.
This only takes one line.
<lang R>lengths(sapply(1:100, function(n) c(Filter(function(x) n %% x == 0, seq_len(n %/% 2)), n)))</lang>
<lang rsplus>lengths(sapply(1:100, function(n) c(Filter(function(x) n %% x == 0, seq_len(n %/% 2)), n)))</lang>


=={{header|Raku}}==
=={{header|Raku}}==