0votos

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

por josejuan hace 5 años

En haskell usando Yesod.

– 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
{-# LANGUAGE QuasiQuotes #-} 
{-# LANGUAGE TypeFamilies #-} 
{-# LANGUAGE TemplateHaskell #-} 
{-# LANGUAGE OverloadedStrings #-} 
{-# LANGUAGE MultiParamTypeClasses #-} 
import Yesod 
import Network.Wai.Handler.Warp (run) 
 
data Minimal = Minimal 
 
mkYesod "Minimal" [parseRoutes|/#Int/#Int/#Int/#Int/#Int RootR GET|] 
 
instance Yesod Minimal where 
    defaultLayout widget = do 
        pc <- widgetToPageContent widget 
        hamletToRepHtml [hamlet|\<!DOCTYPE html><html lang="en"><body>^{pageBody pc}</body></html>|] 
 
getRootR a b c d e = defaultLayout [whamlet|#{s}|] where s = sum [a, b, c, d, e] 
 
main = run 8181 =<< toWaiApp Minimal 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.