Secciones de arreglos en Fortran

Secciones inicio:fin de una semana de máximas, con pasos, extremos y asignación en el lugar.

program array_slices
    implicit none
    integer :: week(7) = [61, 68, 74, 79, 72, 65, 58]

    ! A section is start:end, with an optional stride.
    print *, "midweek:   ", week(3:5)
    print *, "weekend:   ", week(6:)
    print *, "every 2nd: ", week(1:7:2)
    ! Sections are arrays too: assign to one in place.
    week(1:2) = week(1:2) + 1
    print *, "warmed:    ", week(1:2)
end program array_slices

Cómo funciona

1. week(3:5) toma el medio de la semana; week(6:) corre hasta el final.
2. Un tercer número es el paso: week(1:7:2) toma un día por medio.
3. Las secciones son arreglos: week(1:2) = week(1:2) + 1 actualiza en el lugar.

Palabras clave y builtins usados aquí

• end
• implicit
• integer
• none
• print
• program

El intento, en números

Líneas

12

Caracteres a escribir

375

Tokens

91

Ritmo de tres estrellas

65 tpm

Al ritmo de tres estrellas de 65 tokens por minuto, este intento toma unos 84 segundos.

Escribe este fragmento

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

← Anterior Siguiente →