Hex Artifact Content
Not logged in

Artifact 1a5a3d16d8e421dcdd2ef681d8a800c8f467c947:


0000: 70 75 62 6c 69 63 20 69 6d 70 6f 72 74 20 73 74  public import st
0010: 64 2e 61 6c 67 6f 72 69 74 68 6d 3b 0a 70 75 62  d.algorithm;.pub
0020: 6c 69 63 20 69 6d 70 6f 72 74 20 73 74 64 2e 61  lic import std.a
0030: 72 72 61 79 3b 0a 70 75 62 6c 69 63 20 69 6d 70  rray;.public imp
0040: 6f 72 74 20 73 74 64 2e 63 6f 6e 76 3b 0a 70 75  ort std.conv;.pu
0050: 62 6c 69 63 20 69 6d 70 6f 72 74 20 73 74 64 2e  blic import std.
0060: 72 61 6e 67 65 3b 0a 70 75 62 6c 69 63 20 69 6d  range;.public im
0070: 70 6f 72 74 20 73 74 64 2e 73 74 64 69 6f 3b 0a  port std.stdio;.
0080: 70 75 62 6c 69 63 20 69 6d 70 6f 72 74 20 73 74  public import st
0090: 64 2e 73 74 72 69 6e 67 3b 0a 70 75 62 6c 69 63  d.string;.public
00a0: 20 69 6d 70 6f 72 74 20 73 74 64 2e 74 79 70 65   import std.type
00b0: 63 6f 6e 73 3b 0a 70 75 62 6c 69 63 20 69 6d 70  cons;.public imp
00c0: 6f 72 74 20 73 74 64 2e 6d 61 74 68 3b 0a 69 6d  ort std.math;.im
00d0: 70 6f 72 74 20 73 74 64 2e 63 2e 73 74 64 6c 69  port std.c.stdli
00e0: 62 3b 0a 0a 2f 2f 20 54 6f 20 61 76 6f 69 64 65  b;..// To avoide
00f0: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 49   the following I
0100: 43 45 3a 0a 2f 2f 20 20 20 73 72 63 5c 70 68 6f  CE:.//   src\pho
0110: 62 6f 73 5c 73 74 64 5c 61 6c 67 6f 72 69 74 68  bos\std\algorith
0120: 6d 2e 64 28 34 35 35 32 29 3a 0a 2f 2f 20 20 20  m.d(4552):.//   
0130: 20 20 45 72 72 6f 72 3a 20 66 75 6e 63 74 69 6f    Error: functio
0140: 6e 20 73 74 64 2e 61 6c 67 6f 72 69 74 68 6d 2e  n std.algorithm.
0150: 63 6f 75 6e 74 21 28 22 61 20 3d 3d 20 62 22 2c  count!("a == b",
0160: 73 74 72 69 6e 67 2c 63 68 61 72 29 2e 63 6f 75  string,char).cou
0170: 6e 74 0a 2f 2f 20 20 20 20 20 63 6f 6d 70 69 6c  nt.//     compil
0180: 65 72 20 65 72 72 6f 72 2c 20 70 61 72 61 6d 65  er error, parame
0190: 74 65 72 20 27 76 61 6c 75 65 27 2c 20 62 75 67  ter 'value', bug
01a0: 7a 69 6c 6c 61 20 32 39 36 32 3f 0a 2f 2f 20 20  zilla 2962?.//  
01b0: 20 20 20 41 73 73 65 72 74 69 6f 6e 20 66 61 69     Assertion fai
01c0: 6c 75 72 65 3a 20 27 30 27 20 6f 6e 20 6c 69 6e  lure: '0' on lin
01d0: 65 20 37 31 37 20 69 6e 20 66 69 6c 65 20 27 67  e 717 in file 'g
01e0: 6c 75 65 2e 63 27 0a 69 6e 74 20 63 6f 75 6e 74  lue.c'.int count
01f0: 28 54 2c 56 29 28 54 5b 5d 20 61 2c 20 56 20 76  (T,V)(T[] a, V v
0200: 29 0a 7b 0a 09 69 6e 74 20 63 6e 74 20 3d 20 30  ).{..int cnt = 0
0210: 3b 0a 09 66 6f 72 65 61 63 68 28 65 3b 20 61 29  ;..foreach(e; a)
0220: 0a 09 09 69 66 28 65 20 3d 3d 20 76 29 0a 09 09  ...if(e == v)...
0230: 09 2b 2b 63 6e 74 3b 0a 09 72 65 74 75 72 6e 20  .++cnt;..return 
0240: 63 6e 74 3b 0a 7d 0a 0a 76 6f 69 64 20 61 70 70  cnt;.}..void app
0250: 6c 69 63 61 74 69 6f 6e 5f 65 78 69 74 28 29 20  lication_exit() 
0260: 6e 6f 74 68 72 6f 77 0a 7b 0a 09 73 74 64 2e 63  nothrow.{..std.c
0270: 2e 73 74 64 6c 69 62 2e 65 78 69 74 28 30 29 3b  .stdlib.exit(0);
0280: 0a 7d 0a 0a 74 65 6d 70 6c 61 74 65 20 44 65 72  .}..template Der
0290: 69 76 65 43 72 65 61 74 65 28 29 0a 7b 0a 09 74  iveCreate().{..t
02a0: 68 69 73 28 54 53 2e 2e 2e 29 28 54 53 20 70 61  his(TS...)(TS pa
02b0: 72 61 6d 73 29 0a 09 7b 0a 09 09 74 68 69 73 2e  rams)..{...this.
02c0: 74 75 70 6c 65 6f 66 20 3d 20 70 61 72 61 6d 73  tupleof = params
02d0: 3b 0a 09 7d 0a 7d 0a 0a 74 65 6d 70 6c 61 74 65  ;..}.}..template
02e0: 20 44 65 72 69 76 65 43 6f 6d 70 61 72 65 28 29   DeriveCompare()
02f0: 0a 7b 0a 6f 76 65 72 72 69 64 65 3a 0a 09 62 6f  .{.override:..bo
0300: 6f 6c 20 6f 70 45 71 75 61 6c 73 28 4f 62 6a 65  ol opEquals(Obje
0310: 63 74 20 72 68 73 29 20 63 6f 6e 73 74 0a 09 7b  ct rhs) const..{
0320: 0a 09 09 72 65 74 75 72 6e 20 74 75 70 6c 65 28  ...return tuple(
0330: 74 68 69 73 2e 74 75 70 6c 65 6f 66 29 20 3d 3d  this.tupleof) ==
0340: 20 74 75 70 6c 65 28 28 63 61 73 74 28 74 79 70   tuple((cast(typ
0350: 65 6f 66 28 74 68 69 73 29 29 72 68 73 29 2e 74  eof(this))rhs).t
0360: 75 70 6c 65 6f 66 29 3b 0a 09 7d 0a 0a 09 69 6e  upleof);..}...in
0370: 74 20 6f 70 43 6d 70 28 4f 62 6a 65 63 74 20 72  t opCmp(Object r
0380: 68 73 29 20 63 6f 6e 73 74 0a 09 7b 0a 09 09 72  hs) const..{...r
0390: 65 74 75 72 6e 20 74 75 70 6c 65 28 74 68 69 73  eturn tuple(this
03a0: 2e 74 75 70 6c 65 6f 66 29 2e 6f 70 43 6d 70 28  .tupleof).opCmp(
03b0: 74 75 70 6c 65 28 28 63 61 73 74 28 74 79 70 65  tuple((cast(type
03c0: 6f 66 28 74 68 69 73 29 29 72 68 73 29 2e 74 75  of(this))rhs).tu
03d0: 70 6c 65 6f 66 29 29 3b 0a 09 7d 0a 0a 09 68 61  pleof));..}...ha
03e0: 73 68 5f 74 20 74 6f 48 61 73 68 28 29 20 63 6f  sh_t toHash() co
03f0: 6e 73 74 0a 09 7b 0a 09 09 68 61 73 68 5f 74 20  nst..{...hash_t 
0400: 76 20 3d 20 30 3b 0a 09 09 66 6f 72 65 61 63 68  v = 0;...foreach
0410: 28 6d 65 6d 3b 20 74 68 69 73 2e 74 75 70 6c 65  (mem; this.tuple
0420: 6f 66 29 20 7b 0a 09 09 09 76 20 2a 3d 20 31 31  of) {....v *= 11
0430: 3b 0a 09 09 09 73 74 61 74 69 63 20 69 66 28 5f  ;....static if(_
0440: 5f 74 72 61 69 74 73 28 63 6f 6d 70 69 6c 65 73  _traits(compiles
0450: 2c 20 76 5e 3d 6d 65 6d 29 29 0a 09 09 09 09 76  , v^=mem)).....v
0460: 20 5e 3d 20 6d 65 6d 3b 0a 09 09 09 65 6c 73 65   ^= mem;....else
0470: 0a 09 09 09 09 76 20 5e 3d 20 74 79 70 65 69 64  .....v ^= typeid
0480: 28 6d 65 6d 29 2e 67 65 74 48 61 73 68 28 26 6d  (mem).getHash(&m
0490: 65 6d 29 3b 0a 09 09 7d 0a 09 09 72 65 74 75 72  em);...}...retur
04a0: 6e 20 76 3b 0a 09 7d 0a 7d 0a 0a 74 65 6d 70 6c  n v;..}.}..templ
04b0: 61 74 65 20 44 65 72 69 76 65 53 68 6f 77 28 29  ate DeriveShow()
04c0: 0a 7b 0a 6f 76 65 72 72 69 64 65 3a 0a 09 73 74  .{.override:..st
04d0: 72 69 6e 67 20 74 6f 53 74 72 69 6e 67 28 29 20  ring toString() 
04e0: 63 6f 6e 73 74 0a 09 7b 0a 09 09 73 74 72 69 6e  const..{...strin
04f0: 67 20 73 74 72 20 3d 20 74 65 78 74 28 74 79 70  g str = text(typ
0500: 65 6f 66 28 74 68 69 73 29 2e 73 74 72 69 6e 67  eof(this).string
0510: 6f 66 2c 20 22 28 22 29 3b 0a 09 09 66 6f 72 65  of, "(");...fore
0520: 61 63 68 28 69 2c 6d 65 6d 3b 20 74 68 69 73 2e  ach(i,mem; this.
0530: 74 75 70 6c 65 6f 66 29 20 7b 0a 09 09 09 69 66  tupleof) {....if
0540: 28 69 29 20 73 74 72 20 7e 3d 20 22 2c 20 22 3b  (i) str ~= ", ";
0550: 0a 09 09 09 73 74 72 20 3d 20 74 65 78 74 28 73  ....str = text(s
0560: 74 72 2c 20 74 68 69 73 2e 74 75 70 6c 65 6f 66  tr, this.tupleof
0570: 5b 69 5d 2e 73 74 72 69 6e 67 6f 66 5b 35 2e 2e  [i].stringof[5..
0580: 24 5d 2c 20 22 3a 22 2c 20 20 6d 65 6d 29 3b 0a  $], ":",  mem);.
0590: 09 09 7d 0a 09 09 72 65 74 75 72 6e 20 73 74 72  ..}...return str
05a0: 20 7e 20 22 29 22 3b 0a 09 7d 0a 7d 0a            ~ ")";..}.}.