Ideone.com | Online Haskell Compiler & Debugging Tool

Computer geeks!

language:	Haskell (ghc-6.8.2)
date:	125 days 23 hours ago
link:
visibility:	public private user's deleted

source code clone download copy to clipboard report bug / make suggestion

1
2
3
4
5
6
7
8
9
10
11
data Instruction = X | Y deriving Show
 
breadthSearch target ((path, (x,y)):paths)
    | x == target = reverse path
    | otherwise = breadthSearch target $
                  paths ++ [(X:path, (x+y, y))
                           ,(Y:path, (x, x+y))]
 
main = do
  value <- getContents
  print $ breadthSearch (read value) [([],(1,1))]

clone download copy to clipboard

compilation info hide

input / output show all hide all

# 12 # 11 # 10 # 9 # 8 # 7 # 6 # 5 # 4 # 3 # 2 # 1

upload with new input
# 12: hide show clone input 125 days 11 hours ago Success

result: Success time: 2.32s memory: 7816 kB returned value: 0
input:
```
500
```
output:
```
[X,X,X,X,Y,X,Y,X,Y,X,Y,X,Y,X]
```
# 11: hide show clone input 125 days 11 hours ago Success

result: Success time: 0.6s memory: 5768 kB returned value: 0
input:
```
400
```
output:
```
[X,X,Y,Y,X,X,Y,X,Y,Y,X,Y,X]
```
# 10: hide show clone input 125 days 11 hours ago Success

result: Success time: 0.64s memory: 5768 kB returned value: 0
input:
```
300
```
output:
```
[X,X,Y,Y,X,Y,Y,X,X,X,Y,Y,X]
```
# 9: hide show clone input 125 days 11 hours ago Success

result: Success time: 0.13s memory: 4744 kB returned value: 0
input:
```
200
```
output:
```
[X,X,Y,X,X,X,Y,Y,X,X,Y,X]
```
# 8: hide show clone input 125 days 11 hours ago Success

result: Success time: 0.02s memory: 3720 kB returned value: 0
input:
```
100
```
output:
```
[X,X,Y,X,X,Y,Y,X,Y,X]
```
# 7: hide show clone input 125 days 19 hours ago Success

result: Success time: 0.02s memory: 3720 kB returned value: 0
input:
```
4
```
output:
```
[X,X,X]
```
# 6: hide show clone input 125 days 23 hours ago Success

result: Success time: 2.33s memory: 7816 kB returned value: 0
input:
```
500
```
output:
```
[X,X,X,X,Y,X,Y,X,Y,X,Y,X,Y,X]
```
# 5: hide show clone input 125 days 23 hours ago Success

result: Success time: 0.02s memory: 3720 kB returned value: 0
input:
```
100
```
output:
```
[X,X,Y,X,X,Y,Y,X,Y,X]
```
# 4: hide show clone input 125 days 23 hours ago Time limit exceeded

result: Time limit exceeded time: 5s memory: 7816 kB signal: 24 (SIGXCPU)
input:
```
1488
```
output: no
# 3: hide show clone input 125 days 23 hours ago Time limit exceeded

result: Time limit exceeded time: 5s memory: 7816 kB signal: 24 (SIGXCPU)
input:
```
1000
```
output: no
# 2: hide show clone input 125 days 23 hours ago Time limit exceeded

result: Time limit exceeded time: 5s memory: 7816 kB signal: 24 (SIGXCPU)
input:
```
10000
```
output: no
# 1: hide show clone input 125 days 23 hours ago Success

result: Success time: 0.02s memory: 3720 kB returned value: 0
input:
```
34
```
output:
```
[X,Y,X,Y,X,Y,X]
```

UsernamePassword

Username
Password