Без заголовка

Вот это вот гуано, код на R?

pisum = function() {
    t = 0.0
    for (j in 1:500) {
        t = 0.0
        for (k in 1:10000) {
            t = t + 1.0/(k*k)
        }
    }
    return(t)
}

PS

> pisum = function() {
+     t = 0.0
+     for (j in 1:500) {
+         t = 0.0
+         for (k in 1:10000) {
+             t = t + 1.0/(k*k)
+         }
+     }
+     return(t)
+ }
> pisum()
[1] 1.644834
> system.time(pisum())
пользователь      система       прошло 
       3.080        0.004        3.109 
> system.time(pisum())
пользователь      система       прошло 
       3.072        0.000        3.075 
> system.time(pisum())
пользователь      система       прошло 
       3.056        0.000        3.059 
> pisum = function() {    
+     for (j in 1:500) {
+         k <- 1:10000
+         t <- sum(1/(k*k))
+     }
+     t
+ }
> pisum()
[1] 1.644834
> system.time(pisum())
пользователь      система       прошло 
       0.116        0.000        0.118 
> system.time(pisum())
пользователь      система       прошло 
       0.104        0.000        0.102 
> system.time(pisum())
пользователь      система       прошло 
       0.096        0.000        0.098 
> 

Как можно после этого смотреть на этих аферистов?