Hex Artifact Content
Not logged in

Artifact 41ba420d0c49ce8db3f30e2e1c39d9f9bf3aa94b:


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 0a  lication_exit().
0260: 7b 0a 09 73 74 64 2e 63 2e 73 74 64 6c 69 62 2e  {..std.c.stdlib.
0270: 65 78 69 74 28 30 29 3b 0a 7d 0a 0a 74 65 6d 70  exit(0);.}..temp
0280: 6c 61 74 65 20 44 65 72 69 76 65 43 72 65 61 74  late DeriveCreat
0290: 65 28 29 0a 7b 0a 09 74 68 69 73 28 54 53 2e 2e  e().{..this(TS..
02a0: 2e 29 28 54 53 20 70 61 72 61 6d 73 29 0a 09 7b  .)(TS params)..{
02b0: 0a 09 09 74 68 69 73 2e 74 75 70 6c 65 6f 66 20  ...this.tupleof 
02c0: 3d 20 70 61 72 61 6d 73 3b 0a 09 7d 0a 7d 0a 0a  = params;..}.}..
02d0: 74 65 6d 70 6c 61 74 65 20 44 65 72 69 76 65 43  template DeriveC
02e0: 6f 6d 70 61 72 65 28 29 0a 7b 0a 6f 76 65 72 72  ompare().{.overr
02f0: 69 64 65 3a 0a 09 62 6f 6f 6c 20 6f 70 45 71 75  ide:..bool opEqu
0300: 61 6c 73 28 4f 62 6a 65 63 74 20 72 68 73 29 20  als(Object rhs) 
0310: 63 6f 6e 73 74 0a 09 7b 0a 09 09 72 65 74 75 72  const..{...retur
0320: 6e 20 74 75 70 6c 65 28 74 68 69 73 2e 74 75 70  n tuple(this.tup
0330: 6c 65 6f 66 29 20 3d 3d 20 74 75 70 6c 65 28 28  leof) == tuple((
0340: 63 61 73 74 28 74 79 70 65 6f 66 28 74 68 69 73  cast(typeof(this
0350: 29 29 72 68 73 29 2e 74 75 70 6c 65 6f 66 29 3b  ))rhs).tupleof);
0360: 0a 09 7d 0a 0a 09 69 6e 74 20 6f 70 43 6d 70 28  ..}...int opCmp(
0370: 4f 62 6a 65 63 74 20 72 68 73 29 20 63 6f 6e 73  Object rhs) cons
0380: 74 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 74 75  t..{...return tu
0390: 70 6c 65 28 74 68 69 73 2e 74 75 70 6c 65 6f 66  ple(this.tupleof
03a0: 29 2e 6f 70 43 6d 70 28 74 75 70 6c 65 28 28 63  ).opCmp(tuple((c
03b0: 61 73 74 28 74 79 70 65 6f 66 28 74 68 69 73 29  ast(typeof(this)
03c0: 29 72 68 73 29 2e 74 75 70 6c 65 6f 66 29 29 3b  )rhs).tupleof));
03d0: 0a 09 7d 0a 0a 09 68 61 73 68 5f 74 20 74 6f 48  ..}...hash_t toH
03e0: 61 73 68 28 29 20 63 6f 6e 73 74 0a 09 7b 0a 09  ash() const..{..
03f0: 09 68 61 73 68 5f 74 20 76 20 3d 20 30 3b 0a 09  .hash_t v = 0;..
0400: 09 66 6f 72 65 61 63 68 28 6d 65 6d 3b 20 74 68  .foreach(mem; th
0410: 69 73 2e 74 75 70 6c 65 6f 66 29 20 7b 0a 09 09  is.tupleof) {...
0420: 09 76 20 2a 3d 20 31 31 3b 0a 09 09 09 73 74 61  .v *= 11;....sta
0430: 74 69 63 20 69 66 28 5f 5f 74 72 61 69 74 73 28  tic if(__traits(
0440: 63 6f 6d 70 69 6c 65 73 2c 20 76 5e 3d 6d 65 6d  compiles, v^=mem
0450: 29 29 0a 09 09 09 09 76 20 5e 3d 20 6d 65 6d 3b  )).....v ^= mem;
0460: 0a 09 09 09 65 6c 73 65 0a 09 09 09 09 76 20 5e  ....else.....v ^
0470: 3d 20 74 79 70 65 69 64 28 6d 65 6d 29 2e 67 65  = typeid(mem).ge
0480: 74 48 61 73 68 28 26 6d 65 6d 29 3b 0a 09 09 7d  tHash(&mem);...}
0490: 0a 09 09 72 65 74 75 72 6e 20 76 3b 0a 09 7d 0a  ...return v;..}.
04a0: 7d 0a 0a 74 65 6d 70 6c 61 74 65 20 44 65 72 69  }..template Deri
04b0: 76 65 53 68 6f 77 28 29 0a 7b 0a 6f 76 65 72 72  veShow().{.overr
04c0: 69 64 65 3a 0a 09 73 74 72 69 6e 67 20 74 6f 53  ide:..string toS
04d0: 74 72 69 6e 67 28 29 20 63 6f 6e 73 74 0a 09 7b  tring() const..{
04e0: 0a 09 09 73 74 72 69 6e 67 20 73 74 72 20 3d 20  ...string str = 
04f0: 74 65 78 74 28 74 79 70 65 6f 66 28 74 68 69 73  text(typeof(this
0500: 29 2e 73 74 72 69 6e 67 6f 66 2c 20 22 28 22 29  ).stringof, "(")
0510: 3b 0a 09 09 66 6f 72 65 61 63 68 28 69 2c 6d 65  ;...foreach(i,me
0520: 6d 3b 20 74 68 69 73 2e 74 75 70 6c 65 6f 66 29  m; this.tupleof)
0530: 20 7b 0a 09 09 09 69 66 28 69 29 20 73 74 72 20   {....if(i) str 
0540: 7e 3d 20 22 2c 20 22 3b 0a 09 09 09 73 74 72 20  ~= ", ";....str 
0550: 3d 20 74 65 78 74 28 73 74 72 2c 20 74 68 69 73  = text(str, this
0560: 2e 74 75 70 6c 65 6f 66 5b 69 5d 2e 73 74 72 69  .tupleof[i].stri
0570: 6e 67 6f 66 5b 35 2e 2e 24 5d 2c 20 22 3a 22 2c  ngof[5..$], ":",
0580: 20 20 6d 65 6d 29 3b 0a 09 09 7d 0a 09 09 72 65    mem);...}...re
0590: 74 75 72 6e 20 73 74 72 20 7e 20 22 29 22 3b 0a  turn str ~ ")";.
05a0: 09 7d 0a 7d 0a                                   .}.}.