# Difference between revisions of "99 questions/11 to 20"

(problem 18) |
(problem 17) |
||

Line 103: | Line 103: | ||

== Problem 16 == | == Problem 16 == | ||

− | + | shoffsta is working on this... | |

− | + | (**) Drop every N'th element from a list. | |

<pre> | <pre> | ||

Example: | Example: | ||

− | + | * (drop '(a b c d e f g h i k) 3) | |

+ | (A B D E G H K) | ||

Example in Haskell: | Example in Haskell: | ||

− | + | *Main> drop = "abcdefghik" 3 | |

+ | "abdeghk" | ||

</pre> | </pre> | ||

Line 123: | Line 125: | ||

== Problem 17 == | == Problem 17 == | ||

− | + | (*) Split a list into two parts; the length of the first part is given. | |

+ | |||

+ | Do not use any predefined predicates. | ||

<pre> | <pre> | ||

Example: | Example: | ||

− | + | * (split '(a b c d e f g h i k) 3) | |

+ | ( (A B C) (D E F G H I K)) | ||

Example in Haskell: | Example in Haskell: | ||

− | + | *Main> split "abcdefghik" 3 | |

+ | ("abc", "defghik") | ||

</pre> | </pre> | ||

− | Solution: | + | Solution using take and drop: |

<haskell> | <haskell> | ||

− | + | split xs n = (take n xs, drop n xs) | |

</haskell> | </haskell> | ||

− | |||

== Problem 18 == | == Problem 18 == | ||

Line 176: | Line 181: | ||

Examples in Haskell: | Examples in Haskell: | ||

*Main> rotate ['a','b','c','d','e','f','g','h'] 3 | *Main> rotate ['a','b','c','d','e','f','g','h'] 3 | ||

+ | "defghabc" | ||

*Main> rotate ['a','b','c','d','e','f','g','h'] (-2) | *Main> rotate ['a','b','c','d','e','f','g','h'] (-2) | ||

+ | "ghabcdef" | ||

</pre> | </pre> | ||

## Revision as of 07:53, 12 December 2006

These are Haskell translations of Ninety Nine Lisp Problems.

If you want to work on one of these, put your name in the block so we know someone's working on it. Then, change n in your block to the appropriate problem number, and fill in the <Problem description>,<example in lisp>,<example in Haskell>,<solution in haskell> and <description of implementation> fields.

## Problem 11

<Problem description>

Example: <example in lisp> Example in Haskell: <example in Haskell>

Solution:

```
<solution in haskell>
```

<description of implementation>

## Problem 12

<Problem description>

Example: <example in lisp> Example in Haskell: <example in Haskell>

Solution:

```
<solution in haskell>
```

<description of implementation>

## Problem 13

<Problem description>

Example: <example in lisp> Example in Haskell: <example in Haskell>

Solution:

```
<solution in haskell>
```

<description of implementation>

## Problem 14

(*) Duplicate the elements of a list.

Example: * (dupli '(a b c c d)) (A A B B C C C C D D) Example in Haskell: > dupli [1, 2, 3] [1,1,2,2,3,3]

Solution:

```
dupli [] = []
dupli (x:xs) = [x,x] ++ dupli(xs)
```

## Problem 15

<Problem description>

Example: <example in lisp> Example in Haskell: <example in Haskell>

Solution:

```
<solution in haskell>
```

<description of implementation>

## Problem 16

shoffsta is working on this... (**) Drop every N'th element from a list.

Example: * (drop '(a b c d e f g h i k) 3) (A B D E G H K) Example in Haskell: *Main> drop = "abcdefghik" 3 "abdeghk"

Solution:

```
<solution in haskell>
```

<description of implementation>

## Problem 17

(*) Split a list into two parts; the length of the first part is given.

Do not use any predefined predicates.

Example: * (split '(a b c d e f g h i k) 3) ( (A B C) (D E F G H I K)) Example in Haskell: *Main> split "abcdefghik" 3 ("abc", "defghik")

Solution using take and drop:

```
split xs n = (take n xs, drop n xs)
```

## Problem 18

(**) Extract a slice from a list.

Given two indices, i and k, the slice is the list containing the elements between the i'th and i'th element of the original list (both limits included). Start counting the elements with 1.

Example: * (slice '(a b c d e f g h i k) 3 7) (C D E F G) Example in Haskell: *Main> slice ['a','b','c','d','e','f','g','h','i','k'] 3 7

Solution:

```
slice xs (i+1) k = take (k-i) $ drop i xs
```

## Problem 19

(**) Rotate a list N places to the left.

Hint: Use the predefined functions length and (++).

Examples: * (rotate '(a b c d e f g h) 3) (D E F G H A B C) * (rotate '(a b c d e f g h) -2) (G H A B C D E F) Examples in Haskell: *Main> rotate ['a','b','c','d','e','f','g','h'] 3 "defghabc" *Main> rotate ['a','b','c','d','e','f','g','h'] (-2) "ghabcdef"

Solution:

```
rotate [] _ = []
rotate l 0 = l
rotate (x:xs) (n+1) = rotate (xs ++ [x]) n
rotate l n = rotate l (length l + n)
```

There are two separate cases:

- If n > 0, move the first element to the end of the list n times.

- If n < 0, convert the problem to the equivalent problem for n > 0 by adding the list's length to n.

## Problem 20

<Problem description>

Example: <example in lisp> Example in Haskell: <example in Haskell>

Solution:

```
<solution in haskell>
```

<description of implementation>