Submission #7936120
Source Code Expand
let n = read_int () let k, s = ref 0, ref 0 let _ = while !s < n do incr k; s := !k * (!k + 1) / 2 done; for i = 1 to !k do if !s - i <> n then Printf.printf "%d\n" i done
Submission Info
Submission Time | |
---|---|
Task | B - Exactly N points |
User | lbr |
Language | OCaml (4.02.3) |
Score | 300 |
Code Size | 173 Byte |
Status | AC |
Exec Time | 2 ms |
Memory | 1280 KB |
Judge Result
Set Name | sample | dataset1 | dataset2 | ||||||
---|---|---|---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 200 / 200 | 100 / 100 | ||||||
Status |
|
|
|
Set Name | Test Cases |
---|---|
sample | sample-01.txt, sample-02.txt, sample-03.txt |
dataset1 | sample-01.txt, sample-02.txt, sample-03.txt, 01-01.txt, 01-02.txt, 01-03.txt, 01-04.txt, 01-05.txt, 01-06.txt, 01-07.txt, 01-08.txt, 01-09.txt, 01-10.txt |
dataset2 | sample-01.txt, sample-02.txt, sample-03.txt, 01-01.txt, 01-02.txt, 01-03.txt, 01-04.txt, 01-05.txt, 01-06.txt, 01-07.txt, 01-08.txt, 01-09.txt, 01-10.txt, 02-01.txt, 02-02.txt, 02-03.txt, 02-04.txt, 02-05.txt, 02-06.txt, 02-07.txt, 02-08.txt, sample-01.txt, sample-02.txt, sample-03.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
01-01.txt | AC | 1 ms | 384 KB |
01-02.txt | AC | 1 ms | 384 KB |
01-03.txt | AC | 1 ms | 384 KB |
01-04.txt | AC | 1 ms | 384 KB |
01-05.txt | AC | 1 ms | 384 KB |
01-06.txt | AC | 1 ms | 384 KB |
01-07.txt | AC | 1 ms | 384 KB |
01-08.txt | AC | 1 ms | 384 KB |
01-09.txt | AC | 1 ms | 384 KB |
01-10.txt | AC | 1 ms | 384 KB |
02-01.txt | AC | 2 ms | 1280 KB |
02-02.txt | AC | 2 ms | 1280 KB |
02-03.txt | AC | 2 ms | 1280 KB |
02-04.txt | AC | 2 ms | 1280 KB |
02-05.txt | AC | 2 ms | 1280 KB |
02-06.txt | AC | 2 ms | 768 KB |
02-07.txt | AC | 2 ms | 640 KB |
02-08.txt | AC | 2 ms | 1152 KB |
sample-01.txt | AC | 1 ms | 384 KB |
sample-02.txt | AC | 1 ms | 384 KB |
sample-03.txt | AC | 1 ms | 384 KB |