|
Revision 3, 0.6 kB
(checked in by krobillard, 3 years ago)
|
|
Added doc/Implemented.
Renamed binary from ocore to orca.
Removed Thune config since it is now its own project.
|
| Line | |
|---|
| 1 | REBOL [ |
|---|
| 2 | ;Best times: |
|---|
| 3 | ; Rebol: 0.0059995 |
|---|
| 4 | ; Orca release: 0.000852 |
|---|
| 5 | ; Orca x64-release: 0.000763 |
|---|
| 6 | ] |
|---|
| 7 | |
|---|
| 8 | |
|---|
| 9 | ;if (first system/version) > 0 [do %../bin/timblk.r] |
|---|
| 10 | ;print time-block [ |
|---|
| 11 | |
|---|
| 12 | todo: done: part: 0 |
|---|
| 13 | |
|---|
| 14 | tok: read/lines %Implemented |
|---|
| 15 | foreach t tok [ |
|---|
| 16 | ;print t |
|---|
| 17 | parse/all t [ |
|---|
| 18 | to "[ ]" (todo: todo + 1) |
|---|
| 19 | | to "[/]" (part: part + 1) |
|---|
| 20 | | to "[X]" (done: done + 1) |
|---|
| 21 | | to "[f]" (done: done + 1) |
|---|
| 22 | ] |
|---|
| 23 | ] |
|---|
| 24 | |
|---|
| 25 | total: done + part + todo |
|---|
| 26 | print [ |
|---|
| 27 | "total:" total |
|---|
| 28 | "^/part: " part |
|---|
| 29 | "^/done: " done |
|---|
| 30 | "^/partial: " done + part * 100 / total #"%" |
|---|
| 31 | "^/complete:" done * 100 / total #"%" |
|---|
| 32 | ] |
|---|
| 33 | |
|---|
| 34 | ;] 0.05 |
|---|
