algorytm.org

Implementacja w Haskell

Baza Wiedzy
wersja offline serwisu przeznaczona na urządzenia z systemem Android
Darowizny
darowiznaWspomóż rozwój serwisu
Nagłówki RSS
Artykuły
Implementacje
Komentarze
Forum
Bookmarki






Sonda
Implementacji w jakim języku programowania poszukujesz?

Szukanie zadanego elementu - Implementacja w Haskell
Ocena użytkownikóww: *****  / 0
SłabyŚwietny
Nadesłany przez Adam Chrapkowski, 20 grudnia 2013 03:51
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.

szukanie_elementu.hs:
-- Szukanie indeksu zadanego elementu
-- Adam Chrapkowski
-- www.algorytm.org
--
-- Compliant with Haskell 98 standard

import Maybe
import Text.Printf

myIndexOf :: (Ord t) => [t] -> t -> Int -> Maybe Int
myIndexOf []     k i = Nothing
myIndexOf (x:xs) k i
	| x == k    = Just i
	| otherwise = myIndexOf xs k (i + 1)

showIndexOf :: (Ord t) => [t] -> t -> String
showIndexOf xs x = case myIndexOf xs x 0 of
	Just i  -> "'x' found at index " ++ (printf "%d" i)
	Nothing -> "'x' has not been found"
Dodaj komentarz