Advertisement
Guest User

Untitled

a guest
Jan 29th, 2020
117
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
F# 0.57 KB | None | 0 0
  1. let zad9 (x: float) (y: float) = Seq.initInfinite (fun p -> (System.Math.Sin((x*y)/(float p + 1.0)) |> System.Math.Sqrt) - 2.0)
  2. let zad9_1 (x: float) (y: float) = seq {
  3.     let p = ref 0.0
  4.     while true do
  5.         let wyrazenie = System.Math.Sqrt(System.Math.Sin((x * y)/(!p + 1.0))) - 2.0
  6.         yield wyrazenie
  7.         p := !p + 1.0
  8.     }
  9.  
  10. let zad9_2 (x: float) (y: float) = seq {
  11.     let mutable p: float = 0.0
  12.     while true do
  13.         let wyrazenie = System.Math.Sqrt(System.Math.Sin((x * y) / (p + 1.0))) - 2.0
  14.         yield wyrazenie
  15.         p <- p + 1.0
  16.     }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement