diff options
| author | manuel <manuel@mausz.at> | 2012-03-23 17:44:30 +0100 |
|---|---|---|
| committer | manuel <manuel@mausz.at> | 2012-03-23 17:44:30 +0100 |
| commit | af2639ac7e4bd714fae65fbe17ccb1177f0e2abb (patch) | |
| tree | 8da88c4c9640b32583cf34813c65966c9ccef73b /TestAufgabeFFP1.hs | |
| parent | d772ddd6979fc88d3e6e5255bb23850b64688111 (diff) | |
| download | ffp-af2639ac7e4bd714fae65fbe17ccb1177f0e2abb.tar.gz ffp-af2639ac7e4bd714fae65fbe17ccb1177f0e2abb.tar.bz2 ffp-af2639ac7e4bd714fae65fbe17ccb1177f0e2abb.zip | |
implement pd
Diffstat (limited to 'TestAufgabeFFP1.hs')
| -rw-r--r-- | TestAufgabeFFP1.hs | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/TestAufgabeFFP1.hs b/TestAufgabeFFP1.hs index 1380c17..e119a3e 100644 --- a/TestAufgabeFFP1.hs +++ b/TestAufgabeFFP1.hs | |||
| @@ -16,8 +16,18 @@ pof2sTests = TestList [pof2s1] | |||
| 16 | 16 | ||
| 17 | ------------------------------------------------------------------------------- | 17 | ------------------------------------------------------------------------------- |
| 18 | 18 | ||
| 19 | pd1 :: Test | ||
| 20 | pd1 = TestCase (assertEqual "pd" [[1], [1,1], [1,2,1], [1,3,3,1], [1,4,6,4,1], | ||
| 21 | [1,5,10,10,5,1], [1,6,15,20,15,6,1], [1,7,21,35,35,21,7,1], | ||
| 22 | [1,8,28,56,70,56,28,8,1], [1,9,36,84,126,126,84,36,9,1], | ||
| 23 | [1,10,45,120,210,252,210,120,45,10,1]] (take 11 pd)) | ||
| 24 | |||
| 25 | pdTests = TestList [pd1] | ||
| 26 | |||
| 27 | ------------------------------------------------------------------------------- | ||
| 28 | |||
| 19 | tests :: [Test] | 29 | tests :: [Test] |
| 20 | tests = [pof2s1] | 30 | tests = [pof2s1, pdTests] |
| 21 | 31 | ||
| 22 | main = do | 32 | main = do |
| 23 | forM tests $ \test -> | 33 | forM tests $ \test -> |