Haskell :: Sprache |
Fremder (unbekannt) |
|
Information? 05.12.2002 (07:18 Uhr) amo | |||||
quadratListe 05.12.2002 (04:49 Uhr) amo | |||||
exponentenListe 05.12.2002 (04:50 Uhr) amo | |||||
ausfGeschw 05.12.2002 (06:10 Uhr) amo | |||||
Übungsblatt geändert 10.12.2002 (09:36 Uhr) amo | |||||
ausfGeschw 10.12.2002 (09:43 Uhr) amo | |||||
Testergebnis 10.12.2002 (09:50 Uhr) amo | |||||
Blatt 7 Download 05.12.2002 (03:37 Uhr) amo | |||||
modul Blatt 7 10.12.2002 (09:58 Uhr) amo | |||||
module Uebungsblatt_07 where quadratListe l = map (\x -> x*x) l exponentenListe l = map (\x -> x^x) l binToDec l = foldl (\x y -> x*2+y) 0 l ausfGeschw nc vm = let xDy = zipWith (/) nc vm n = fromInt (length xDy) mw = sum xDy / n in (sum (map (\x -> abs (mw - x)) xDy)) / n dist :: ((Double,Double),(Double,Double)) -> Double dist ((x1,y1),(x2,y2)) = sqrt (((abs (x1 - x2))^2) + ((abs (y1 - y2))^2)) maxDist :: [(Double,Double)] -> Double maxDist ps | length ps >= 2 = let dists [] = [] dists (p:ps) = map (\x -> dist (p,x)) ps ++ dists ps in foldl max 0 (dists ps) | |||||
Zeige Beitrag 100 |
|
0 User im Forum. Kostenloses Forumhosting von plaudern.de. Dieses Forum im eigenen Design entführen. Impressum |