Ideone.com | Online Haskell Compiler & Debugging Tool

language:	Haskell (ghc-6.8.2)
date:	115 days 21 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
12
13
14
15
16
17
18
19
20
21
22
import Data.List
import Data.Function
 
readArray [] _ acc = concat acc
readArray (line:rest) n acc = readArray rest (n+1) ((readLine n line):acc)
  where readLine y line = map (\(x, s) -> ((x, y), read s::Int))
                          $ zip [0..]
                          $ words line
 
filterArray acc [] = reverse acc
filterArray acc (val@((x,y), _):rest) = filterArray (val:acc)
                                        $ filter ((/=x).fst.fst)
                                        $ filter ((/=y).snd.fst)
                                        $ rest
 
main = do
  content <- getContents
  print $ filterArray []
       $ reverse
       $ sortBy (compare `on` snd)
       $ readArray (lines content) 0 []

clone download copy to clipboard

compilation info hide

source code

syntax highlight

input (#_)

input / output show all hide all

# 5 # 4 # 3 # 2 # 1

upload with new input
# 5: hide show clone input 115 days 21 hours ago Success

result: Success time: 0.02s memory: 3724 kB returned value: 0
input:
```
1 0 1 0
-1 0 -1 0
0 2 2 0
0 0 0 0
```
output:
```
[((2,2),2),((0,0),1),((3,1),0),((1,3),0)]
```
# 4: hide show clone input 115 days 21 hours ago Success

result: Success time: 0.01s memory: 3724 kB returned value: 0
input:
```
1 0 -1 0
0 0 -1 1
-1 0 1 -1
```
output:
```
[((0,0),1),((3,1),1),((2,2),1)]
```

# 3: show clone input 115 days 21 hours ago Success

input:

 -68 -84 -90 -70 -99
 -98 -85 -61 -61 -55
 -83 -54 -66 -85 -92
 -92 -93 -80 -92 -75
 -69 -59 -75 -86 -53

output:

[((4,4),-53),((1,2),-54),((3,1),-61),((0,0),-68),((2,3),-80)]

# 2: hide show clone input 115 days 21 hours ago Success

result: Success time: 0.02s memory: 3724 kB returned value: 0
input:
```
1 2 3
4 5 6
7 8 9
```
output:
```
[((2,2),9),((1,1),5),((0,0),1)]
```
# 1: hide show clone input 115 days 21 hours ago Success

result: Success time: 0.02s memory: 3724 kB returned value: 0
input:
```
60 20 30 50
41 50 40 66
78 83 37 77
59 12 100 88
```
output:
```
[((2,3),100),((1,2),83),((3,1),66),((0,0),60)]
```

UsernamePassword

Username
Password