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

6
documents/Programmierparadigmen/scripts/haskell/hirsch-index.hs
View file

@ -8,5 +8,7 @@ hIndex l = helper (reverse (sort l)) 0
| otherwise = acc
-- Alternativ
hindex1 = length . takeWhile id . zipWith (<=) [1..] . reverse . sort
hindex2 = length . takeWhile (\(i, n) -> n >= i) . zip [1..] . reverse . sort
hindex1 = length . takeWhile id .
zipWith (<=) [1..] . reverse . sort
hindex2 = length . takeWhile (\(i, n) -> n >= i) .
zip [1..] . reverse . sort

3
documents/Programmierparadigmen/scripts/haskell/Intersect.hs → documents/Programmierparadigmen/scripts/haskell/intersect.hs
View file

@ -12,4 +12,5 @@ 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]]
commonMultiples a b c =
intersectAll [ multiples n | n <- [a,b,c]]

6
documents/Programmierparadigmen/scripts/haskell/pythagorean-triples.hs Normal file
View file

@ -0,0 +1,6 @@
triples :: [(Integer, Integer, Integer)]
triples = [(x,y,z) | z <-[1..],
x <- [1..z],
y <- [1..z],
z^2 == x^2 + y^2
]