Hex Artifact Content
Not logged in

Artifact 5615f7e126fc9cd7c328d1b4b021baed71df5c21:


0000: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0010: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0020: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0030: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0040: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0a 2f 2f  /////////////.//
0050: 20 57 72 69 74 74 65 20 69 6e 0a 2f 2f 20 20 20   Writte in.//   
0060: 20 43 6c 61 69 72 65 20 76 33 2e 33 2e 33 37 0a   Claire v3.3.37.
0070: 2f 2f 20 20 20 20 68 74 74 70 3a 2f 2f 77 77 77  //    http://www
0080: 2e 63 6c 61 69 72 65 2d 6c 61 6e 67 75 61 67 65  .claire-language
0090: 2e 63 6f 6d 2f 0a 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  .com/.//////////
00a0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
00b0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
00c0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
00d0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
00e0: 2f 2f 2f 0a 0a 44 20 3a 3a 20 31 30 30 30 30 30  ///..D :: 100000
00f0: 30 30 30 30 0a 0a 6c 6f 6e 67 20 3c 3a 20 65 70  0000..long <: ep
0100: 68 65 6d 65 72 61 6c 5f 6f 62 6a 65 63 74 28 68  hemeral_object(h
0110: 69 3a 69 6e 74 65 67 65 72 2c 20 6c 6f 3a 69 6e  i:integer, lo:in
0120: 74 65 67 65 72 29 0a 0a 5b 6c 6f 6e 67 21 28 78  teger)..[long!(x
0130: 3a 20 69 6e 74 65 67 65 72 29 20 3a 20 6c 6f 6e  : integer) : lon
0140: 67 20 2d 3e 0a 09 6c 6f 6e 67 28 68 69 20 3d 20  g ->..long(hi = 
0150: 78 20 2f 20 44 2c 20 6c 6f 20 3d 20 78 20 6d 6f  x / D, lo = x mo
0160: 64 20 44 29 0a 5d 0a 0a 5b 2b 28 78 3a 6c 6f 6e  d D).]..[+(x:lon
0170: 67 2c 20 79 3a 6c 6f 6e 67 29 20 3a 20 6c 6f 6e  g, y:long) : lon
0180: 67 20 2d 3e 0a 09 6c 65 74 20 6c 6f 6c 6f 20 3a  g ->..let lolo :
0190: 3d 20 78 2e 6c 6f 20 2d 20 44 20 2b 20 79 2e 6c  = x.lo - D + y.l
01a0: 6f 20 69 6e 0a 09 28 0a 09 09 69 66 20 28 20 6c  o in..(...if ( l
01b0: 6f 6c 6f 20 3c 20 30 20 29 0a 09 09 09 6c 6f 6e  olo < 0 )....lon
01c0: 67 28 68 69 20 3d 20 78 2e 68 69 20 2b 20 79 2e  g(hi = x.hi + y.
01d0: 68 69 2c 20 20 20 20 20 6c 6f 20 3d 20 6c 6f 6c  hi,     lo = lol
01e0: 6f 20 2b 20 44 29 0a 09 09 65 6c 73 65 0a 09 09  o + D)...else...
01f0: 09 6c 6f 6e 67 28 68 69 20 3d 20 78 2e 68 69 20  .long(hi = x.hi 
0200: 2b 20 79 2e 68 69 20 2b 20 31 2c 20 6c 6f 20 3d  + y.hi + 1, lo =
0210: 20 6c 6f 6c 6f 29 0a 09 29 0a 5d 0a 0a 5b 2d 28   lolo)..).]..[-(
0220: 78 3a 6c 6f 6e 67 2c 20 79 3a 6c 6f 6e 67 29 20  x:long, y:long) 
0230: 3a 20 6c 6f 6e 67 20 2d 3e 0a 09 6c 65 74 20 6c  : long ->..let l
0240: 6f 6c 6f 20 3a 3d 20 78 2e 6c 6f 20 2d 20 79 2e  olo := x.lo - y.
0250: 6c 6f 20 69 6e 0a 09 28 0a 09 09 69 66 20 28 20  lo in..(...if ( 
0260: 6c 6f 6c 6f 20 3c 20 30 20 29 0a 09 09 09 6c 6f  lolo < 0 )....lo
0270: 6e 67 28 68 69 20 3d 20 78 2e 68 69 20 2d 20 79  ng(hi = x.hi - y
0280: 2e 68 69 20 2d 20 31 2c 20 6c 6f 20 3d 20 6c 6f  .hi - 1, lo = lo
0290: 6c 6f 20 2b 20 44 29 0a 09 09 65 6c 73 65 0a 09  lo + D)...else..
02a0: 09 09 6c 6f 6e 67 28 68 69 20 3d 20 78 2e 68 69  ..long(hi = x.hi
02b0: 20 2d 20 79 2e 68 69 2c 20 20 20 20 20 6c 6f 20   - y.hi,     lo 
02c0: 3d 20 6c 6f 6c 6f 29 0a 09 29 0a 5d 0a 0a 5b 2a  = lolo)..).]..[*
02d0: 28 78 3a 6c 6f 6e 67 2c 20 79 3a 69 6e 74 65 67  (x:long, y:integ
02e0: 65 72 29 20 3a 20 6c 6f 6e 67 20 2d 3e 0a 09 6c  er) : long ->..l
02f0: 65 74 20 72 20 3a 3d 20 6c 6f 6e 67 21 28 30 29  et r := long!(0)
0300: 20 69 6e 0a 09 6c 65 74 20 63 20 3a 3d 20 78 20   in..let c := x 
0310: 69 6e 0a 09 09 28 77 68 69 6c 65 20 28 79 20 3e  in...(while (y >
0320: 20 30 29 20 28 0a 09 09 09 28 69 66 20 28 79 20   0) (....(if (y 
0330: 6d 6f 64 20 32 20 3d 20 31 29 20 72 20 3a 2b 20  mod 2 = 1) r :+ 
0340: 63 29 2c 0a 09 09 09 63 20 3a 3d 20 63 20 2b 20  c),....c := c + 
0350: 63 2c 0a 09 09 09 79 20 3a 2f 20 32 0a 09 09 29  c,....y :/ 2...)
0360: 2c 0a 09 09 72 29 0a 5d 0a 0a 5b 2b 28 78 3a 6c  ,...r).]..[+(x:l
0370: 6f 6e 67 2c 20 79 3a 69 6e 74 65 67 65 72 29 20  ong, y:integer) 
0380: 3a 20 6c 6f 6e 67 20 2d 3e 0a 09 78 20 2b 20 6c  : long ->..x + l
0390: 6f 6e 67 21 28 79 29 0a 5d 0a 0a 5b 3c 28 78 3a  ong!(y).]..[<(x:
03a0: 6c 6f 6e 67 2c 20 79 3a 6c 6f 6e 67 29 20 3a 20  long, y:long) : 
03b0: 62 6f 6f 6c 65 61 6e 20 2d 3e 0a 09 69 66 20 28  boolean ->..if (
03c0: 78 2e 68 69 20 3c 20 79 2e 68 69 29 0a 09 09 74  x.hi < y.hi)...t
03d0: 72 75 65 0a 09 65 6c 73 65 20 69 66 20 28 78 2e  rue..else if (x.
03e0: 68 69 20 3e 20 79 2e 68 69 29 0a 09 09 66 61 6c  hi > y.hi)...fal
03f0: 73 65 0a 09 65 6c 73 65 0a 09 09 78 2e 6c 6f 20  se..else...x.lo 
0400: 3c 20 79 2e 6c 6f 0a 5d 0a 5b 3e 3d 28 78 3a 6c  < y.lo.].[>=(x:l
0410: 6f 6e 67 2c 20 79 3a 6c 6f 6e 67 29 20 3a 20 62  ong, y:long) : b
0420: 6f 6f 6c 65 61 6e 20 2d 3e 20 6e 6f 74 28 78 20  oolean -> not(x 
0430: 3c 20 79 29 5d 0a 5b 3c 3d 28 78 3a 6c 6f 6e 67  < y)].[<=(x:long
0440: 2c 20 79 3a 6c 6f 6e 67 29 20 3a 20 62 6f 6f 6c  , y:long) : bool
0450: 65 61 6e 20 2d 3e 20 6e 6f 74 28 79 20 3c 20 78  ean -> not(y < x
0460: 29 5d 0a 5b 3e 28 78 3a 6c 6f 6e 67 2c 20 79 3a  )].[>(x:long, y:
0470: 6c 6f 6e 67 29 20 3a 20 62 6f 6f 6c 65 61 6e 20  long) : boolean 
0480: 2d 3e 20 28 79 20 3c 20 78 29 5d 0a 0a 5b 3e 3d  -> (y < x)]..[>=
0490: 28 78 3a 6c 6f 6e 67 2c 20 79 3a 69 6e 74 65 67  (x:long, y:integ
04a0: 65 72 29 20 3a 20 62 6f 6f 6c 65 61 6e 20 2d 3e  er) : boolean ->
04b0: 20 6e 6f 74 28 78 20 3c 20 6c 6f 6e 67 21 28 79   not(x < long!(y
04c0: 29 29 5d 0a 5b 3c 3d 28 78 3a 6c 6f 6e 67 2c 20  ))].[<=(x:long, 
04d0: 79 3a 69 6e 74 65 67 65 72 29 20 3a 20 62 6f 6f  y:integer) : boo
04e0: 6c 65 61 6e 20 2d 3e 20 6e 6f 74 28 6c 6f 6e 67  lean -> not(long
04f0: 21 28 79 29 20 3c 20 78 29 5d 0a 5b 3c 28 78 3a  !(y) < x)].[<(x:
0500: 6c 6f 6e 67 2c 20 79 3a 69 6e 74 65 67 65 72 29  long, y:integer)
0510: 20 3a 20 62 6f 6f 6c 65 61 6e 20 2d 3e 20 28 78   : boolean -> (x
0520: 20 3c 20 6c 6f 6e 67 21 28 79 29 29 5d 0a 5b 3e   < long!(y))].[>
0530: 28 78 3a 6c 6f 6e 67 2c 20 79 3a 69 6e 74 65 67  (x:long, y:integ
0540: 65 72 29 20 3a 20 62 6f 6f 6c 65 61 6e 20 2d 3e  er) : boolean ->
0550: 20 28 6c 6f 6e 67 21 28 79 29 20 3c 20 78 29 5d   (long!(y) < x)]
0560: 0a 0a 5b 3e 3d 28 78 3a 69 6e 74 65 67 65 72 2c  ..[>=(x:integer,
0570: 20 79 3a 6c 6f 6e 67 29 20 3a 20 62 6f 6f 6c 65   y:long) : boole
0580: 61 6e 20 2d 3e 20 6e 6f 74 28 6c 6f 6e 67 21 28  an -> not(long!(
0590: 78 29 20 3c 20 79 29 5d 0a 5b 3c 3d 28 78 3a 69  x) < y)].[<=(x:i
05a0: 6e 74 65 67 65 72 2c 20 79 3a 6c 6f 6e 67 29 20  nteger, y:long) 
05b0: 3a 20 62 6f 6f 6c 65 61 6e 20 2d 3e 20 6e 6f 74  : boolean -> not
05c0: 28 79 20 3c 20 6c 6f 6e 67 21 28 78 29 29 5d 0a  (y < long!(x))].
05d0: 5b 3c 28 78 3a 69 6e 74 65 67 65 72 2c 20 79 3a  [<(x:integer, y:
05e0: 6c 6f 6e 67 29 20 3a 20 62 6f 6f 6c 65 61 6e 20  long) : boolean 
05f0: 2d 3e 20 28 6c 6f 6e 67 21 28 78 29 20 3c 20 79  -> (long!(x) < y
0600: 29 5d 0a 5b 3e 28 78 3a 69 6e 74 65 67 65 72 2c  )].[>(x:integer,
0610: 20 79 3a 6c 6f 6e 67 29 20 3a 20 62 6f 6f 6c 65   y:long) : boole
0620: 61 6e 20 2d 3e 20 28 79 20 3c 20 6c 6f 6e 67 21  an -> (y < long!
0630: 28 78 29 29 5d 0a 0a 0a 5b 73 74 72 69 6e 67 21  (x))]...[string!
0640: 28 78 3a 20 6c 6f 6e 67 29 20 3a 20 73 74 72 69  (x: long) : stri
0650: 6e 67 20 2d 3e 0a 09 69 66 20 28 78 2e 68 69 20  ng ->..if (x.hi 
0660: 3e 20 30 29 0a 09 09 6c 65 74 20 6c 6f 73 20 3a  > 0)...let los :
0670: 3d 20 73 74 72 69 6e 67 21 28 78 2e 6c 6f 29 20  = string!(x.lo) 
0680: 69 6e 0a 09 09 09 73 74 72 69 6e 67 21 28 78 2e  in....string!(x.
0690: 68 69 29 20 2f 2b 20 6d 61 6b 65 5f 73 74 72 69  hi) /+ make_stri
06a0: 6e 67 28 39 20 2d 20 6c 65 6e 67 74 68 28 6c 6f  ng(9 - length(lo
06b0: 73 29 2c 20 27 30 27 29 20 2f 2b 20 6c 6f 73 0a  s), '0') /+ los.
06c0: 09 65 6c 73 65 0a 09 09 73 74 72 69 6e 67 21 28  .else...string!(
06d0: 78 2e 6c 6f 29 0a 5d 0a 0a 2f 2f 2f 2f 2f 2f 2f  x.lo).]..///////
06e0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
06f0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0700: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0710: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0720: 2f 2f 2f 2f 2f 2f 0a 0a 5b 72 65 61 64 4c 69 6e  //////..[readLin
0730: 65 28 29 20 3a 20 6c 69 73 74 3c 69 6e 74 65 67  e() : list<integ
0740: 65 72 3e 20 2d 3e 0a 09 6c 69 73 74 3c 69 6e 74  er> ->..list<int
0750: 65 67 65 72 3e 7b 69 6e 74 65 67 65 72 21 28 73  eger>{integer!(s
0760: 29 20 7c 20 73 20 69 6e 20 65 78 70 6c 6f 64 65  ) | s in explode
0770: 28 66 72 65 61 64 6c 69 6e 65 28 73 74 64 69 6e  (freadline(stdin
0780: 29 2c 20 22 20 22 29 7d 0a 5d 0a 0a 5b 73 6f 6c  ), " ")}.]..[sol
0790: 76 65 28 52 3a 69 6e 74 65 67 65 72 2c 20 6b 3a  ve(R:integer, k:
07a0: 69 6e 74 65 67 65 72 2c 20 4e 3a 69 6e 74 65 67  integer, N:integ
07b0: 65 72 2c 20 67 3a 6c 69 73 74 3c 69 6e 74 65 67  er, g:list<integ
07c0: 65 72 3e 29 20 2d 3e 0a 09 6c 65 74 20 64 65 73  er>) ->..let des
07d0: 74 20 3a 3d 20 6d 61 6b 65 5f 6c 69 73 74 28 4e  t := make_list(N
07e0: 2c 20 30 29 20 69 6e 0a 09 6c 65 74 20 65 61 72  , 0) in..let ear
07f0: 6e 20 3a 3d 20 6d 61 6b 65 5f 6c 69 73 74 28 4e  n := make_list(N
0800: 2c 20 6c 6f 6e 67 21 28 30 29 29 20 69 6e 0a 09  , long!(0)) in..
0810: 28 0a 09 09 66 6f 72 20 73 20 69 6e 20 28 30 20  (...for s in (0 
0820: 2e 2e 20 4e 20 2d 20 31 29 20 28 0a 09 09 09 6c  .. N - 1) (....l
0830: 65 74 20 72 69 64 65 20 3a 3d 20 6c 6f 6e 67 21  et ride := long!
0840: 28 30 29 20 69 6e 0a 09 09 09 6c 65 74 20 69 20  (0) in....let i 
0850: 20 20 20 3a 3d 20 30 20 20 20 20 20 20 20 20 69     := 0        i
0860: 6e 0a 09 09 09 28 0a 09 09 09 09 77 68 69 6c 65  n....(.....while
0870: 20 28 69 20 3c 20 4e 29 0a 09 09 09 09 28 0a 09   (i < N).....(..
0880: 09 09 09 09 6c 65 74 20 72 69 64 65 32 20 3a 3d  ....let ride2 :=
0890: 20 72 69 64 65 20 2b 20 67 5b 28 28 73 20 2b 20   ride + g[((s + 
08a0: 69 29 20 6d 6f 64 20 4e 29 20 2b 20 31 5d 20 69  i) mod N) + 1] i
08b0: 6e 0a 09 09 09 09 09 28 69 66 20 28 72 69 64 65  n......(if (ride
08c0: 32 20 3e 20 6b 29 0a 09 09 09 09 09 09 62 72 65  2 > k).......bre
08d0: 61 6b 28 29 0a 09 09 09 09 09 65 6c 73 65 0a 09  ak()......else..
08e0: 09 09 09 09 09 28 72 69 64 65 20 3a 3d 20 72 69  .....(ride := ri
08f0: 64 65 32 2c 20 69 20 3a 2b 20 31 29 29 0a 09 09  de2, i :+ 1))...
0900: 09 09 29 2c 0a 09 09 09 09 65 61 72 6e 5b 73 20  ..),.....earn[s 
0910: 2b 20 31 5d 20 3a 3d 20 72 69 64 65 2c 0a 09 09  + 1] := ride,...
0920: 09 09 64 65 73 74 5b 73 20 2b 20 31 5d 20 3a 3d  ..dest[s + 1] :=
0930: 20 28 28 73 20 2b 20 69 29 20 6d 6f 64 20 4e 29   ((s + i) mod N)
0940: 20 2b 20 31 0a 09 09 09 29 0a 09 09 29 2c 0a 09   + 1....)...),..
0950: 09 6c 65 74 20 66 69 72 73 74 56 69 73 69 74 54  .let firstVisitT
0960: 69 6d 65 20 3a 3d 20 6d 61 6b 65 5f 6c 69 73 74  ime := make_list
0970: 28 4e 2c 20 20 20 20 20 20 20 2d 31 29 20 69 6e  (N,       -1) in
0980: 0a 09 09 6c 65 74 20 66 69 72 73 74 56 69 73 69  ...let firstVisi
0990: 74 45 61 72 6e 20 3a 3d 20 6d 61 6b 65 5f 6c 69  tEarn := make_li
09a0: 73 74 28 4e 2c 20 6c 6f 6e 67 21 28 30 29 29 20  st(N, long!(0)) 
09b0: 69 6e 0a 09 09 6c 65 74 20 71 20 20 20 20 20 20  in...let q      
09c0: 20 20 20 3a 3d 20 31 20 20 20 20 20 20 20 20 69     := 1        i
09d0: 6e 0a 09 09 6c 65 74 20 74 6f 74 61 6c 45 61 72  n...let totalEar
09e0: 6e 20 3a 3d 20 6c 6f 6e 67 21 28 30 29 20 69 6e  n := long!(0) in
09f0: 0a 09 09 6c 65 74 20 69 20 20 20 20 20 20 20 20  ...let i        
0a00: 20 3a 3d 20 30 20 20 20 20 20 20 20 20 69 6e 0a   := 0        in.
0a10: 09 09 28 0a 09 09 09 28 77 68 69 6c 65 20 28 69  ..(....(while (i
0a20: 20 3c 20 52 29 20 28 0a 09 09 09 09 69 66 20 28   < R) (.....if (
0a30: 66 69 72 73 74 56 69 73 69 74 54 69 6d 65 5b 71  firstVisitTime[q
0a40: 5d 20 3d 20 2d 31 29 0a 09 09 09 09 28 0a 09 09  ] = -1).....(...
0a50: 09 09 09 66 69 72 73 74 56 69 73 69 74 54 69 6d  ...firstVisitTim
0a60: 65 5b 71 5d 20 3a 3d 20 69 2c 0a 09 09 09 09 09  e[q] := i,......
0a70: 66 69 72 73 74 56 69 73 69 74 45 61 72 6e 5b 71  firstVisitEarn[q
0a80: 5d 20 3a 3d 20 74 6f 74 61 6c 45 61 72 6e 2c 0a  ] := totalEarn,.
0a90: 09 09 09 09 09 74 6f 74 61 6c 45 61 72 6e 20 20  .....totalEarn  
0aa0: 20 20 20 20 20 20 20 3a 2b 20 65 61 72 6e 5b 71         :+ earn[q
0ab0: 5d 2c 0a 09 09 09 09 09 71 20 20 20 20 20 20 20  ],......q       
0ac0: 20 20 20 20 20 20 20 20 20 20 3a 3d 20 64 65 73            := des
0ad0: 74 5b 71 5d 2c 0a 09 09 09 09 09 69 20 20 20 20  t[q],......i    
0ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 2b 20               :+ 
0af0: 31 0a 09 09 09 09 29 0a 09 09 09 09 65 6c 73 65  1.....).....else
0b00: 0a 09 09 09 09 28 0a 09 09 09 09 09 6c 65 74 20  .....(......let 
0b10: 6c 6f 6f 70 53 69 7a 65 20 3a 3d 20 69 20 2d 20  loopSize := i - 
0b20: 66 69 72 73 74 56 69 73 69 74 54 69 6d 65 5b 71  firstVisitTime[q
0b30: 5d 20 69 6e 0a 09 09 09 09 09 6c 65 74 20 6c 6f  ] in......let lo
0b40: 6f 70 45 61 72 6e 20 3a 3d 20 74 6f 74 61 6c 45  opEarn := totalE
0b50: 61 72 6e 20 2d 20 66 69 72 73 74 56 69 73 69 74  arn - firstVisit
0b60: 45 61 72 6e 5b 71 5d 20 69 6e 0a 09 09 09 09 09  Earn[q] in......
0b70: 6c 65 74 20 72 65 73 74 20 20 20 20 20 3a 3d 20  let rest     := 
0b80: 52 20 2d 20 69 20 69 6e 0a 09 09 09 09 09 28 0a  R - i in......(.
0b90: 09 09 09 09 09 09 74 6f 74 61 6c 45 61 72 6e 20  ......totalEarn 
0ba0: 3a 2b 20 6c 6f 6f 70 45 61 72 6e 20 2a 20 28 72  :+ loopEarn * (r
0bb0: 65 73 74 20 2f 20 6c 6f 6f 70 53 69 7a 65 29 2c  est / loopSize),
0bc0: 0a 09 09 09 09 09 09 2f 2f 20 63 6c 65 61 72 0a  .......// clear.
0bd0: 09 09 09 09 09 09 66 69 72 73 74 56 69 73 69 74  ......firstVisit
0be0: 54 69 6d 65 20 3a 3d 20 6d 61 6b 65 5f 6c 69 73  Time := make_lis
0bf0: 74 28 4e 2c 20 2d 31 29 2c 0a 09 09 09 09 09 09  t(N, -1),.......
0c00: 69 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a  i              :
0c10: 3d 20 52 20 2d 20 28 72 65 73 74 20 6d 6f 64 20  = R - (rest mod 
0c20: 6c 6f 6f 70 53 69 7a 65 29 0a 09 09 09 09 09 29  loopSize)......)
0c30: 0a 09 09 09 09 29 0a 09 09 09 29 29 2c 0a 09 09  .....)....)),...
0c40: 09 70 72 69 6e 63 28 73 74 72 69 6e 67 21 28 74  .princ(string!(t
0c50: 6f 74 61 6c 45 61 72 6e 29 29 0a 09 09 29 0a 09  otalEarn))...)..
0c60: 29 0a 5d 0a 0a 5b 6d 61 69 6e 28 29 20 2d 3e 0a  ).]..[main() ->.
0c70: 09 6c 65 74 20 54 20 3a 3d 20 72 65 61 64 4c 69  .let T := readLi
0c80: 6e 65 28 29 5b 31 5d 20 69 6e 0a 09 09 66 6f 72  ne()[1] in...for
0c90: 20 43 20 69 6e 20 28 31 20 2e 2e 20 54 29 0a 09   C in (1 .. T)..
0ca0: 09 28 0a 09 09 09 70 72 69 6e 74 66 28 22 43 61  .(....printf("Ca
0cb0: 73 65 20 23 7e 41 3a 20 22 2c 20 43 29 2c 0a 09  se #~A: ", C),..
0cc0: 09 09 6c 65 74 20 52 6b 4e 20 3a 3d 20 72 65 61  ..let RkN := rea
0cd0: 64 4c 69 6e 65 28 29 20 69 6e 20 73 6f 6c 76 65  dLine() in solve
0ce0: 28 52 6b 4e 5b 31 5d 2c 20 52 6b 4e 5b 32 5d 2c  (RkN[1], RkN[2],
0cf0: 20 52 6b 4e 5b 33 5d 2c 20 72 65 61 64 4c 69 6e   RkN[3], readLin
0d00: 65 28 29 29 2c 0a 09 09 09 70 72 69 6e 63 28 22  e()),....princ("
0d10: 5c 6e 22 29 0a 09 09 29 0a 5d 0a 0a 28 6d 61 69  \n")...).]..(mai
0d20: 6e 28 29 29 0a                                   n()).