Intrínsecas de arreglos en Fortran

sum, maxval y compañía reemplazan por completo el bucle contador.

program array_intrinsics
    implicit none
    real :: hauls(6) = [12.5, 8.0, 15.25, 6.75, 11.0, 9.5]

    ! Whole-array intrinsics replace the counting loop.
    print *, "total catch: ", sum(hauls)
    print *, "best haul:   ", maxval(hauls)
    print *, "worst haul:  ", minval(hauls)
    print *, "average:     ", sum(hauls) / size(hauls)
    print *, "which best:  ", maxloc(hauls)
end program array_intrinsics

Cómo funciona

1. sum(hauls) y maxval(hauls) reducen el arreglo entero en una llamada.
2. El promedio es sum sobre size — sin variable acumuladora en ninguna parte.
3. maxloc responde dónde está la mejor pesca, no solo cuánto pesó.

Palabras clave y builtins usados aquí

• end
• implicit
• maxloc
• maxval
• minval
• none
• print
• program
• real
• sum

El intento, en números

Líneas

11

Caracteres a escribir

383

Tokens

78

Ritmo de tres estrellas

70 tpm

Al ritmo de tres estrellas de 70 tokens por minuto, este intento toma unos 67 segundos.

Escribe este fragmento

Paso 3 de 3 en Arreglos; paso 6 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →