Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Iesirea din coproprietate

Mouse wireless ergonomic cu bater...

Cum se calculeaza dobanda lunara ...

La mulți ani @driftking91!
 Unde e recomandat sa ma cazez in ...

Descarcator de supratensiune tip 2

ping digi?

Reparare "șanțuri&#...
 De ce i se zice Mariei "Stapa...

Colet valoare Londra București

BMW seria 3 rulat vs SsangYong Ko...

Share abonament Netflix
 Cum pot sa fac rost de un negativ...

Lant Bicicleta

Un designer artist: Raymond Loewy

ATS din contactor modular
 

Haskell

- - - - -
  • Please log in to reply
2 replies to this topic

#1
himura619

himura619

    Junior Member

  • Grup: Members
  • Posts: 122
  • Înscris: 08.08.2013
Am si eu nevoie de ajutor.Trebuie sa fac un calculator grafic (functiile sa fie date de utilizator ) in haskell. Ma poate ajuta cineva cu un cod sau o ideea , orice e bun?

#2
stefanutz13

stefanutz13

    Member

  • Grup: Members
  • Posts: 742
  • Înscris: 04.12.2011
https://www.youtube....KVKLuSnU4UIinKx

Si asta , ca nu am timp acum pt mai mult

import Data.Char (isDigit)
data Term
= TermInt Integer
| TermOp (Integer -> Integer -> Integer)
evaluate :: String -> [Integer]
evaluate = evalTerms . map mkTerm . words
mkTerm :: String -> Term
mkTerm termStr = case termStr of
"+" -> TermOp (+)
"-" -> TermOp (-)
"*" -> TermOp (*)
_
| and $ map isDigit termStr -> TermInt $ read termStr
| otherwise -> error $ "invalid input `" ++ termStr ++ "'"
evalTerms :: [Term] -> [Integer]
evalTerms = foldl modifyStack []
where
modifyStack stack term = case term of
TermInt n -> n : stack
TermOp op -> case stack of
(a:b:_) -> op a b : drop 2 stack
_ -> error "stack too small for operator application"


L.E: cu grafica te descurci :)

Edited by stefanutz13, 24 May 2015 - 19:18.


#3
himura619

himura619

    Junior Member

  • Grup: Members
  • Posts: 122
  • Înscris: 08.08.2013
Nu stiu prea multe dar am sa incerc multumesc pentru ajutor

Anunturi

Chirurgia endoscopică a hipofizei Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate