Manejo de caracteres en Fortran

Cadenas de largo fijo, y los trims y búsquedas que las hacen portarse bien.

program character_ops
    implicit none
    character(len=20) :: port = "Valparaiso"
    character(len=40) :: tag

    ! // concatenates; trim drops the padding a fixed length carries.
    tag = trim(port) // ", berth 9"
    print *, tag
    print *, "name length:  ", len_trim(port)
    print *, "finds 'para': ", index(port, "para")
    print *, "right-shifted: [", adjustr(port), "]"
end program character_ops

Cómo funciona

1. character(len=20) rellena con blancos al final; trim los quita para empalmar.
2. // concatena el puerto recortado con su amarradero.
3. len_trim, index y adjustr miden, buscan y desplazan el texto.

Palabras clave y builtins usados aquí

• adjustr
• character
• end
• implicit
• index
• len
• len_trim
• none
• print
• program
• trim

El intento, en números

Líneas

12

Caracteres a escribir

376

Tokens

70

Ritmo de tres estrellas

65 tpm

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

Escribe este fragmento

Paso 1 de 3 en Cadenas y formatos; paso 16 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →