Haskell - Historie editací

Pajinek v 11. 5. 2012, 15:11

2012-05-11T15:11:24Z

Pajinek v 11. 5. 2012, 13:00

2012-05-11T13:00:58Z

Pajinek v 11. 5. 2012, 10:22

2012-05-11T10:22:14Z

Pajinek v 11. 5. 2012, 10:20

2012-05-11T10:20:52Z

Pajinek: Založena nová stránka: == Zajímavé konstrukce Načtení souboru a vypsání dat do vstupu s informací o číslu řádku import IO showFile f1 = do h1 <- openFile f1 ReadMode c1 <- …

2012-05-11T10:20:31Z

Založena nová stránka: == Zajímavé konstrukce Načtení souboru a vypsání dat do vstupu s informací o číslu řádku import IO showFile f1 = do h1 <- openFile f1 ReadMode c1 <- …

Nová stránka

== Zajímavé konstrukce

Načtení souboru a vypsání dat do vstupu s informací o číslu řádku

import IO
showFile f1 = do
h1 <- openFile f1 ReadMode
c1 <- hGetContents h1
putStr $ unlines $ [ (show a) ++ ": " ++ b | (a,b) <- (zip [0..(length ( lines c1 ))] (lines c1) ) ]

← Starší verze		Verze z 11. 5. 2012, 15:11
Řádka 1:		Řádka 1:
		+	== Interpret ==
		+	Pro haskell je několik interpretů:
		+	* hugs
		+	* ghci
		+
		+	Příkaz pro otevření souboru
		+
		+	:load <file>
		+
		+	příkaz pro znovu načtení souboru
		+
		+	:r
		+
	== Příklady ==		== Příklady ==

@@ Řádka 33: / Řádka 33: @@
 Procházení binárního stromu
- inOdr Lf = []
+ inOrder Lf = []
- inOdr (Nd x l r) = (inOdr l) ++ (x:inOdr r)
+ inOrder (Nd x l r) = (inOrder l) ++ (inOrder r)
- preOdr Lf = []
+ preOrder Lf = []
- preOdr (Nd x l r) = (x:(preOdr l)) ++ (preOdr r)
+ preOrder (Nd x l r) = (x:(preOrder l)) ++ (preOrder r)
  postOdr Lf = []
- postOdr (Nd x l r) = (postOdr l) ++ (postOdr r) ++ [x]
+ postOrder (Nd x l r) = (postOrder l) ++ (postOrder r) ++ [x]

← Starší verze		Verze z 11. 5. 2012, 10:22
Řádka 8:		Řádka 8:
	c1 <- hGetContents h1		c1 <- hGetContents h1
	putStr $ unlines $ [ (show a) ++ ": " ++ b \| (a,b) <- (zip [0..(length ( lines c1 ))] (lines c1) ) ]		putStr $ unlines $ [ (show a) ++ ": " ++ b \| (a,b) <- (zip [0..(length ( lines c1 ))] (lines c1) ) ]
		+
		+
		+	Vytvoření binárního stromu
		+
		+	data Tree a = Lf
		+	\| Nd a (Tree a) (Tree a)
		+	deriving (Eq)
		+
		+	createTree x = Nd x Lf Lf
		+
		+	addTree (Nd c l r) x
		+	\| x < c = if l == Lf
		+	then (Nd c (createTree x) r)
		+	else Nd c (addTree l x) r
		+	\| x >= c = if r == Lf
		+	then Nd c l (createTree x)
		+	else Nd c l (addTree r x)
		+
		+	array2tree [] = error "empty array"
		+	array2tree (x:xs) = rr (createTree x) xs
		+	where rr tree [] = tree
		+	rr tree (x:xs) = rr (addTree tree x) xs
		+
		+	Procházení binárního stromu
		+
		+	inOdr Lf = []
		+	inOdr (Nd x l r) = (inOdr l) ++ (x:inOdr r)
		+
		+	preOdr Lf = []
		+	preOdr (Nd x l r) = (x:(preOdr l)) ++ (preOdr r)
		+
		+	postOdr Lf = []
		+	postOdr (Nd x l r) = (postOdr l) ++ (postOdr r) ++ [x]

← Starší verze		Verze z 11. 5. 2012, 10:20
Řádka 1:		Řádka 1:
−	== Zajímavé konstrukce	+	== Příklady ==

	Načtení souboru a vypsání dat do vstupu s informací o číslu řádku		Načtení souboru a vypsání dat do vstupu s informací o číslu řádku