Submission #54993981

Source Code Expand

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
let str_to_int_step value ch =
  let ch_str = String.make 1 ch
  in value * 10 + (String.get_uint8 ch_str 0) - 48
;;
let str_to_int s = String.fold_left str_to_int_step 0 s;;
let rec sum_list l s =
  match l with
  | [] -> s
  | x :: xs -> sum_list xs (s + (str_to_int x))
;;
let line1 = read_line ();;
let line2 = read_line ();;
let line3 = read_line ();;
let bc_str = String.split_on_char (String.get " " 0) line2;;
let a = str_to_int line1;;
let sum = sum_list bc_str a;;
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

let str_to_int_step value ch =
  let ch_str = String.make 1 ch
  in value * 10 + (String.get_uint8 ch_str 0) - 48
;;

let str_to_int s = String.fold_left str_to_int_step 0 s;;

let rec sum_list l s =
  match l with
  | [] -> s
  | x :: xs -> sum_list xs (s + (str_to_int x))
;;

let line1 = read_line ();;
let line2 = read_line ();;
let line3 = read_line ();;

let bc_str = String.split_on_char (String.get " " 0) line2;;

let a = str_to_int line1;;
let sum = sum_list bc_str a;;
let result_str = (Int.to_string sum) ^ " " ^ line3;;

print_endline result_str;;

Submission Info

Judge Result