No 28 solved

kohske · Mar 24, 2012 · 94ff4ec · 94ff4ec
1 parent e66b437
commit 94ff4ec
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/p0028.r b/R/p0028.r
@@ -0,0 +1,7 @@
+# http://projecteuler.net/problem=28
+
+a <- 1 + sum(cumsum(rep(seq(2, 1001, 2), each=4)) + 1)
+
+print(a)
+cat(a, file = pipe('pbcopy'))
+