tA
/
Boom
1
0
Förgrening 0
Kod Ärenden 0 Pull-förfrågningar 0 Släpp 0 Wiki Aktiviteter
Du kan inte välja fler än 25 ämnen Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.
1 Commit
1 Gren
48KB
Träd: a2fe18d004
Grenar Taggar
${ item.name }
Skapa branchen ${ searchTerm }
från 'a2fe18d004'
${ noResults }
Boom/README

2.4KB
Rå Blame Historik 

# Boom

**Problem:**  
Return the numbers 0-n, but replace every number with a '3' as one of the digits with "Boom"

I did this in the type system because I wanted to piss off my flatmate, who gave me this to try out, but also because I hate myself.

I cheated a little at the end, because I cbf converting my representation to standard Church Encoding, so everything is a list of digits instead of a number.

## Running

start up `ghci` and type:

```
:t solution (nil :: X)
```

where X is a church encoding using S as the successor function, and Z as the atom.

## Example

```
:t solution (nil :: (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S Z))))))))))))))))))))))))))
```

will return (formatted to save your eyes):

```
solution (nil :: (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S Z))))))))))))))))))))))))))
  :: Cons
        (Cons Z Nil)
     (Cons
        (Cons (S Z) Nil)
     (Cons
        (Cons (S (S Z)) Nil)
     (Cons
        Boom
     (Cons
        (Cons (S (S (S (S Z)))) Nil)
     (Cons
        (Cons (S (S (S (S (S Z))))) Nil)
     (Cons
        (Cons (S (S (S (S (S (S Z)))))) Nil)
     (Cons
        (Cons (S (S (S (S (S (S (S Z))))))) Nil)
     (Cons
        (Cons (S (S (S (S (S (S (S (S Z)))))))) Nil)
     (Cons
        (Cons (S (S (S (S (S (S (S (S (S Z))))))))) Nil)
     (Cons
        (Cons (S Z)
        (Cons Z Nil))
     (Cons
        (Cons (S Z)
        (Cons (S Z) Nil))
     (Cons
        (Cons (S Z)
        (Cons (S (S Z)) Nil))
     (Cons
        Boom
     (Cons
        (Cons (S Z)
        (Cons (S (S (S (S Z)))) Nil))
     (Cons
        (Cons (S Z)
        (Cons (S (S (S (S (S Z))))) Nil))
     (Cons
        (Cons (S Z)
        (Cons (S (S (S (S (S (S Z)))))) Nil))
     (Cons
        (Cons (S Z)
        (Cons (S (S (S (S (S (S (S Z))))))) Nil))
     (Cons
        (Cons (S Z)
        (Cons (S (S (S (S (S (S (S (S Z)))))))) Nil))
     (Cons
        (Cons (S Z)
        (Cons (S (S (S (S (S (S (S (S (S Z))))))))) Nil))
     (Cons
        (Cons (S (S Z))
        (Cons Z Nil))
     (Cons
        (Cons (S (S Z))
        (Cons (S Z) Nil))
     (Cons
        (Cons (S (S Z))
        (Cons (S (S Z)) Nil))
     (Cons
        Boom
     (Cons
        (Cons (S (S Z))
        (Cons (S (S (S (S Z)))) Nil))
     (Cons
        (Cons (S (S Z))
        (Cons (S (S (S (S (S Z))))) Nil))
     Nil)))))))))))))))))))))))))
```