www.jammni.de

zaehlen ([],b)=0
zaehlen (x:xs,b)
		|x==b =zaehlen(xs,b)+1 
		|otherwise =zaehlen(xs,b) 

gib (kopf:rest) 0=kopf
gib (kopf:rest) n=gib (rest, n-1)

enthalten [] b= False
enthalten (x:xs) b
		|x==b 	   = True
		|otherwise = enthalten xs b

import IO
umbruch ="\n"
muster::Int->String
muster 0= ""
muster n=(nsternchen n)++umbruch ++ muster(n-1)
	  where 
	       nsternchen 1="*"
	       nsternchen n='*':nsternchen(n-1)
musterA ::Int->IO()
musterA x=putStr (muster x)

import IO

umbruch = "\n"

muster2 :: (Int, Int) -> String
muster2 (0, n) = (striche n) ++ umbruch
muster2 (1, n) = (striche n) ++ "*" ++ umbruch
muster2 (s, n) = striche(n) ++ sternchen(s) ++ umbruch ++ muster2(s - 2, n + 1)

sternchen :: Int -> String
sternchen 0 = ""
sternchen 1 = "*"
sternchen n = sternchen(n - 1) ++ "*"

striche :: Int -> String
striche 0 = ""
striche 1 = "-"
striche n = striche(n - 1) ++ "-"

musterB :: Int -> IO()
musterB x = putStr (muster2(x, 0))

import IO

umbruch = "\n"


muster1 :: (Int, Int) -> String
muster1 (n, 0) = sternchen(n) ++ umbruch
muster1 (n, 1) = "-" ++ sternchen(n) ++ umbruch
muster1 (s, n) = striche(n) ++ sternchen(s) ++ umbruch ++ muster1(s +2, n -1)


muster2 :: (Int, Int) -> String
muster2 (0, n) = (striche n) ++ umbruch
muster2 (1, n) = (striche n) ++ "*" ++ umbruch
muster2 (s, n) = striche(n) ++ sternchen(s) ++ umbruch ++ muster2(s - 2, n + 1)

sternchen :: Int -> String
sternchen 0 = ""
sternchen 1 = "*"
sternchen n = sternchen(n - 1) ++ "*"

striche :: Int -> String
striche 0 = ""
striche 1 = "-"
striche n = striche(n - 1) ++ "-"

musterC :: Int -> IO()
musterC x = putStr (muster1(1,(x `div` 2))++ muster2(x, 0))