RosettaCodeData/Task/Catamorphism/R/catamorphism-4.r

mirror of https://github.com/acmeism/RosettaCodeData.git
Reduce(function(x,acc){if (0==x%%3) c(x*x,acc) else acc}, 0:22,
       init=c(), right=T)
   0   9  36  81 144 225 324 441
	`Reduce(function(x,acc){if (0==x%%3) c(x*x,acc) else acc}, 0:22,`
	`init=c(), right=T)`
	`0 9 36 81 144 225 324 441`