typestar

Arreglos en OCaml

De tamaño fijo y mutables: .(i) indexa, <- escribe.

(* Arrays are fixed-size and mutable; .(i) indexes, <- writes. *)
let temps = [| 14.5; 13.8; 15.2; 14.1 |]

let () =
  temps.(0) <- 14.9;
  Printf.printf "First reading now %.1f\n" temps.(0);

  let sum = Array.fold_left ( +. ) 0.0 temps in
  Printf.printf "Mean: %.2f C\n" (sum /. float_of_int
    (Array.length temps));

  (* Array.init computes each slot from its index. *)
  let quadrat_ids = Array.init 4 (fun i -> 100 + i) in
  Array.iter (Printf.printf "Q%d ") quadrat_ids;
  print_newline ()

Cómo funciona

  1. temps.(0) <- 14.9 escribe en el lugar.
  2. La matemática de flotantes deletrea sus operadores +. y /..
  3. Array.init calcula cada casilla desde su índice.

Palabras clave y builtins usados aquí

El intento, en números

Líneas
15
Caracteres a escribir
479
Tokens
121
Ritmo de tres estrellas
65 tpm

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

Escribe este fragmento

Paso 2 de 4 en Colecciones; paso 19 de 29 en Fundamentos del lenguaje.

← Anterior Siguiente →