micro/split.d

   1 // Written by bearophile <bearophileHUGS@lycos.com>
   2 // Fount at http://www.digitalmars.com/webnews/newsgroups.php?art_group=digitalmars.D&article_id=67673
   3 // Sightly modified by Leandro Lucarella <llucax@gmail.com>
   4 // (removed timings)
   5
   6 import tango.io.device.File: File;
   7 import tango.text.Util: delimit;
   8 import tango.util.Convert: to;
   9
  10 int main(char[][] args) {
  11         auto txt = cast(byte[]) File.get("bible.txt");
  12         auto n = (args.length > 1) ? to!(uint)(args[1]) : 1;
  13         if (n < 1) n = 1;
  14         while (--n)
  15                 txt ~= txt;
  16         auto words = delimit!(byte)(txt, cast(byte[]) " \t\n\r");
  17         return !words.length;
  18 }
  19