Advertisement
zxhouse

Untitled

Jan 6th, 2019
1,313
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
F# 0.22 KB | None | 0 0
  1. let czyWszystkieNieujemne lista =
  2.    let rec zliczUjemne = function
  3.           | h :: t -> if h < 0 then 1 + (zliczUjemne t) else (zliczUjemne t)
  4.           | [] -> 0
  5.    if (zliczUjemne lista) > 0 then false else true
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement