0votos

Cree una aplicación web que permita obtener el promedio de cinco números enteros. en F#

por josejuan hace 5 años

Sin dependencias externas.

– Resuelva el ejercicio propuesto. – Haga uso de Java Server Faces (JSF) y Enterprise Java Beans (EJBs) en su solución. – Haga entrega del código fuente y el código compilado.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
open System 
open System.Net 
 
[<EntryPoint>] 
let main args =  
    let srv = new HttpListener() 
    srv.Prefixes.Add("http://localhost:8182/") 
    srv.Start() 
    while true do 
 
        let rq = srv.GetContext() 
        Console.WriteLine("REQUESTED: {0}", rq.Request.Url) 
 
        let qs = rq.Request.QueryString 
        let st = Seq.sum [for x in qs.Keys do yield Int32.Parse(qs.[x])] 
 
        let rs = String.Format(@"<html><body><h1>Arguments sum: {0}</h1></body></html>", st) 
 
        rq.Response.ContentType <- "text/html" 
        let bf = System.Text.Encoding.UTF8.GetBytes(rs) 
        rq.Response.ContentLength64 <- bf.LongLength 
        rq.Response.OutputStream.Write(bf, 0, bf.Length) 
        rq.Response.OutputStream.Close() 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.