Submission #154966

---

Source Code Expand

let ( |> ) x f = f x

module String = struct
  include String
  let to_list s = 
    let rec to_list_aux acc = function
      | 0 -> acc
      | n -> to_list_aux (s.[n - 1] :: acc) (n - 1) in
    to_list_aux [] (String.length s)
end

let () = 
  let n = read_int () in
  string_of_int n
    |> String.to_list
    |> List.map (( = ) '3')
    |> List.fold_left ( || ) false
    |> ( || ) (n mod 3 = 0)
    |> (function true -> "YES" | false -> "NO")
    |> print_endline

Submission Info

Judge Result