printfn
"Witaj, ?wiecie!"
open
System.Net
let
httpGet
(
url
:
string
)
=
use
wc
=
new
WebClient
()
wc
.
DownloadString
(
url
)
httpGet
"https://pl.wikipedia.org/wiki/F_Sharp"
/// Ci?g Fibonacciego od trzeciego wyrazu
let
fibonacciSeq
=
Seq
.
unfold
(
fun
(
x
,
y
)
->
Some
(
x
+
y
,
(
y
,
x
+
y
)))
(
0
,
1
)
/// Lista zawieraj?ca pi?? pierwszych elementow ci?gu
let
firstFive
=
Seq
.
take
5
fibonacciSeq
|>
Seq
.
toList
// val it : int list = [1; 2; 3; 5; 8]
/// Dziewi?ty element ci?gu
let
ninth
=
Seq
.
item
8
fibonacciSeq
// val it : int = 55
/// Funkcja obliczaj?ca ?redni? pierwszych `n' elementow ci?gu
let
seqAverage
seq
n
=
Seq
.
take
n
seq
|>
Seq
.
map
float
|>
Seq
.
average
/// Funkcja obliczaj?ca ?redni? pierwszych `n' elementow ci?gu Fibonacciego wykorzystuj?ca ``auto-currying''
let
fibonacciAverage
=
seqAverage
fibonacciSeq
fibonacciAverage
10
// val it : float = 23.1