fork download
copy 
  1. x <- logical(100)
  2. y <- lapply(1:length(x), function(i) sapply(1:length(x), function(j) if (j%%i==0) !x[j] else x[j]))
  3. which(sapply(1:length(x), function(j) sum(sapply(sapply(1:length(y), function(i) y[i]), `[`, j))) %% 2 == 1)
Success #stdin #stdout 0.4s 25208KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 [1]   1   4   9  16  25  36  49  64  81 100
https://ideone.com/dALich
language:
R (R 3.5.2)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!