Čo sa tu deje?
let elem = function(list)-> (List.map string_of_int list);;
let rec row = function (list)->if elem(List.hd list)::row(List.tl list);;
odpovede:
2 pre odpoveď č. 1Chcel by som vám poskytnúť niekoľko rád o vašom kóde:
1 - Argumenty sa neuvádzajú medzi zátvorkami, ak nie sú nejednoznačné:
let elem = fun l -> String.concat " " (List.map string_of_float l)
2 - Namiesto použitia if
then
else
, použite zhodu vzoru v zozname. Je to efektívnejšie a váš kód bude čitateľnejší:
let rec row = function
| [] -> []
| x :: tl -> elem x :: row tl
Táto funkcia nie je rekurzívna (zmena na to môže byť pre vás cvičenie)
Tiež som tu dal svoju poslednú funkciu:
let print = fun l -> print_string (String.concat "n" (row l))
let () =
(print [[0.2;-0.2;0.2];[0.1;-0.1;0.1];[0.5;-0.5;0.5]])
Tu moja verzia:
let string_of_float_list l = String.concat " " (List.map string_of_float l)
let float_list_to_string l = String.concat "n" (List.map string_of_float_list l)
let () =
Printf.printf "%s" (float_list_to_string [[1.0;2.0;3.0];[1.0;2.0;3.0];[1.0;2.0;3.0]])
Výkon :
1. 2. 3.
1. 2. 3.
1. 2. 3.