Submission #532991
Source Code Expand
main=interact$(>>=(0#)).tail.words
x#('t':'o':'k':'y':'o':s)=(x+1)#s
x#('k':'y':'o':'t':'o':s)=(x+1)#s
x#(_:s)=x#s
x#_=shows x"\n"
Submission Info
| Submission Time | |
|---|---|
| Task | A - 東京都 |
| User | cojna |
| Language | Haskell (Haskell Platform 2014.2.0.0) |
| Score | 100 |
| Code Size | 134 Byte |
| Status | AC |
| Exec Time | 488 ms |
| Memory | 1836 KB |
Judge Result
| Set Name | All | ||
|---|---|---|---|
| Score / Max Score | 100 / 100 | ||
| Status |
|
| Set Name | Test Cases |
|---|---|
| All | 10_random_to_kyo.txt, 20_noised_tokyoto.txt, 99_teuchi.txt |
| Case Name | Status | Exec Time | Memory |
|---|---|---|---|
| 10_random_to_kyo.txt | AC | 488 ms | 1812 KB |
| 20_noised_tokyoto.txt | AC | 32 ms | 1832 KB |
| 99_teuchi.txt | AC | 28 ms | 1836 KB |