Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- module lab0
- open System
- open System.Net
- open System.Collections.Specialized
- let (email, name) = ("alexpodkin@gmail.com", "Подкин А.Д.") // адрес почты и фамилия с инициалами
- let rec pascal k n =
- if n = k || k = 0
- then
- 1
- else
- (pascal (k - 1) (n - 1)) + (pascal k (n - 1) )
- let printIt n =
- "[" +
- ([for x in 0..n do yield! List.map (fun y -> pascal y x) [0..x]]
- |> List.map (fun x -> x.ToString())
- |> List.reduce (fun x y -> x + "," + y) )
- + "]"
- let main () =
- let values = new NameValueCollection()
- values.Add("email", email)
- values.Add("name", name)
- values.Add("lang", "fsharp")
- values.Add("content", printIt 20)
- let client = new WebClient()
- let response = client.UploadValues(new Uri("http://mipt.eu01.aws.af.cm/lab0"), values)
- let responseString = Text.Encoding.Default.GetString(response)
- printf "%A\n" responseString;;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement