Haskell :: Sprache
  Suche:
 Blatt 7 [ohne Text] 30.11.2002 (00:56 Uhr) amo
 Aufgabe 1 [ohne Text] 01.12.2002 (05:19 Uhr) amo
 Information? 05.12.2002 (07:18 Uhr) amo
 Aufgabe 2 [ohne Text] 01.12.2002 (05:20 Uhr) amo
 2 a) [ohne Text] 05.12.2002 (04:48 Uhr) amo
 quadratListe 05.12.2002 (04:49 Uhr) amo
 2 b) [ohne Text] 05.12.2002 (04:48 Uhr) amo
 exponentenListe 05.12.2002 (04:50 Uhr) amo
 Aufgabe 3 [ohne Text] 01.12.2002 (05:20 Uhr) amo
 binToDec 05.12.2002 (05:12 Uhr) amo
 Aufgabe 4 [ohne Text] 01.12.2002 (05:21 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
 Aufgabe 5 [ohne Text] 01.12.2002 (05:22 Uhr) amo
 dist 05.12.2002 (06:24 Uhr) amo
 maxDist 05.12.2002 (07:13 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)
0 User im Forum. Kostenloses Forumhosting von plaudern.de. Dieses Forum im eigenen Design entführen. Impressum