[ffinder]

код на фортране, который должен по идее был всех победить, но у аффтара с рекордом не вышло
автор: zxc

      integer before(3), after(3), I, J, K, N 
      real loop_time_min, loop_time_sec, avg
      dimension A(512, 512, 128)
      call itime(before)     
      
      ! nowN - array for time 1/2/3 -> h/m/s
      do 1 N = 1, 20  
        do 2 I = 1, 512
          do 3 J = 1, 512
            do 4 K = 1, 512
              A(I, J, K) = N
    4       continue
    3     continue
    2   continue
    1 continue         

      CALL itime(after)
      loop_time_min = after(2) - before(2)
      loop_time_sec = after(3) - before(3)
      avg = (loop_time_min*60+loop_time_sec)/20
      WRITE(*,*) "Loop Time: ", loop_time_min, loop_time_sec 

      stop
      end

результаты:

Celeron(R) Dual-Core CPU T3500 @ 2.10GHz
Loop Time: 0.0000000 31.000000
AVG: 1.5500000