tex-projects/LaTeX-examples
2
0
Fork 0
mirror of https://github.com/MartinThoma/LaTeX-examples.git synced 2025-04-26 06:48:04 +02:00
Code Activity

Abschnitt über Arithmetik in Prolog hinzugefügt; misc

Browse source
This commit is contained in:
Martin Thoma 2014-03-23 19:28:44 +01:00
parent 82dd24d55b
commit 80e8df59d6
20 changed files with 194 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

16
documents/Programmierparadigmen/scripts/haskell/intersect.hs Normal file
View file

@ -0,0 +1,16 @@
module Intersect where
intersect :: (Ord t) => [t] -> [t] -> [t]
intersect a [] = []
intersect [] a = []
intersect (x:xs) (y:ys)
| x == y = x : intersect xs ys
| x < y = intersect xs (y:ys)
| y > y = intersect (x:xs) ys
intersectAll :: (Ord t) => [[t]] -> [t]
intersectAll (l:ls) = (foldr intersect l) ls
intersectAll [] = undefined
multiples n = [n*k | k <- [1..]]
commonMultiples a b c =
intersectAll [ multiples n | n <- [a,b,c]]