From f7356b14dfd9d99bbd154ae71b77338a97025da1 Mon Sep 17 00:00:00 2001
From: Roger Bell_West <roger@firedrake.org>
Date: Mon, 8 Mar 2021 15:52:40 +0000
Subject: Solutions for challenge #103

---
 challenge-103/roger-bell-west/perl/ch-1.pl   | 24 ++++++++++++++
 challenge-103/roger-bell-west/perl/ch-2.pl   | 32 +++++++++++++++++++
 challenge-103/roger-bell-west/python/ch-1.py | 22 +++++++++++++
 challenge-103/roger-bell-west/python/ch-2.py | 31 ++++++++++++++++++
 challenge-103/roger-bell-west/raku/ch-1.p6   | 22 +++++++++++++
 challenge-103/roger-bell-west/raku/ch-2.p6   | 34 ++++++++++++++++++++
 challenge-103/roger-bell-west/ruby/ch-1.rb   | 28 +++++++++++++++++
 challenge-103/roger-bell-west/ruby/ch-2.rb   | 34 ++++++++++++++++++++
 challenge-103/roger-bell-west/rust/ch-1.rs   | 29 +++++++++++++++++
 challenge-103/roger-bell-west/rust/ch-2.rs   | 47 ++++++++++++++++++++++++++++
 challenge-103/roger-bell-west/t2.csv         |  7 +++++
 11 files changed, 310 insertions(+)
 create mode 100755 challenge-103/roger-bell-west/perl/ch-1.pl
 create mode 100755 challenge-103/roger-bell-west/perl/ch-2.pl
 create mode 100755 challenge-103/roger-bell-west/python/ch-1.py
 create mode 100755 challenge-103/roger-bell-west/python/ch-2.py
 create mode 100755 challenge-103/roger-bell-west/raku/ch-1.p6
 create mode 100755 challenge-103/roger-bell-west/raku/ch-2.p6
 create mode 100755 challenge-103/roger-bell-west/ruby/ch-1.rb
 create mode 100755 challenge-103/roger-bell-west/ruby/ch-2.rb
 create mode 100755 challenge-103/roger-bell-west/rust/ch-1.rs
 create mode 100644 challenge-103/roger-bell-west/rust/ch-2.rs
 create mode 100644 challenge-103/roger-bell-west/t2.csv

(limited to 'challenge-103')

diff --git a/challenge-103/roger-bell-west/perl/ch-1.pl b/challenge-103/roger-bell-west/perl/ch-1.pl
new file mode 100755
index 0000000000..53d6dcaf63
--- /dev/null
+++ b/challenge-103/roger-bell-west/perl/ch-1.pl
@@ -0,0 +1,24 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 2;
+
+is(cz(2017),'Fire Rooster','example 1');
+is(cz(1938),'Earth Tiger','example 2');
+
+sub cz {
+  my $yy=shift;
+  my $y=$yy;
+  if ($y<0) {
+    $y++;
+  }
+  $y%=60;
+  while ($y<0) {
+    $y+=60;
+  }
+  return join(' ',
+              [qw(Metal Water Wood Fire Earth)]->[int($y/2)%5],
+              [qw(Monkey Rooster Dog Pig Rat),'Water Buffalo',qw(Tiger Cat Dragon Snake Horse Goat)]->[$y%12]);
+}
diff --git a/challenge-103/roger-bell-west/perl/ch-2.pl b/challenge-103/roger-bell-west/perl/ch-2.pl
new file mode 100755
index 0000000000..a99a672b78
--- /dev/null
+++ b/challenge-103/roger-bell-west/perl/ch-2.pl
@@ -0,0 +1,32 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+is(wp(1606134123,1614591276,'t2.csv'),'00:10:24 Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)','example 1');
+
+use Text::CSV_XS qw(csv);
+use List::Util qw(sum);
+
+sub wp {
+  my $ts=shift;
+  my $tn=shift;
+  my $csvfile=shift;
+  my $td=($tn-$ts)*1000;
+  my $aoa=csv(in => $csvfile);
+  my $tp=sum(map {$_->[0]} @{$aoa});
+  $td %= $tp;
+  foreach my $t (@{$aoa}) {
+    if ($td < $t->[0]) {
+      $td=int($td/1000);
+      my $h=int($td/3600);
+      my $m=int($td/60) % 60;
+      my $s=$td % 60;
+      return sprintf('%02d:%02d:%02d %s',$h,$m,$s,$t->[1]);
+    } else {
+      $td-=$t->[0];
+    }
+  }
+}
diff --git a/challenge-103/roger-bell-west/python/ch-1.py b/challenge-103/roger-bell-west/python/ch-1.py
new file mode 100755
index 0000000000..92708e26fa
--- /dev/null
+++ b/challenge-103/roger-bell-west/python/ch-1.py
@@ -0,0 +1,22 @@
+#! /usr/bin/python3
+
+def cz(yy):
+    y=int(yy)
+    if y<0:
+        y += 1
+    y %= 60
+    while y<0:
+        y += 60
+    return " ".join([['Metal','Water','Wood','Fire','Earth'][int(y/2)%5],['Monkey','Rooster','Dog','Pig','Rat','Water Buffalo','Tiger','Cat','Dragon','Snake','Horse','Goat'][y%12]])
+
+import unittest
+
+class TestCz(unittest.TestCase):
+
+        def test_ex1(self):
+            self.assertEqual(cz(2017),'Fire Rooster','example 1')
+
+        def test_ex2(self):
+            self.assertEqual(cz(1938),'Earth Tiger','example 2')
+
+unittest.main()
diff --git a/challenge-103/roger-bell-west/python/ch-2.py b/challenge-103/roger-bell-west/python/ch-2.py
new file mode 100755
index 0000000000..eb804da2eb
--- /dev/null
+++ b/challenge-103/roger-bell-west/python/ch-2.py
@@ -0,0 +1,31 @@
+#! /usr/bin/python3
+
+import csv
+def wp(ts,tn,csvfile):
+    td=(tn-ts)*1000;
+    aoa=list()
+    with open(csvfile) as csvfile:
+        cr=csv.reader(csvfile)
+        for row in cr:
+            aoa.append(row)
+    tp=sum(int(t[0]) for t in aoa)
+    td %= tp
+    for t in aoa:
+        t[0]=int(t[0])
+        if td < t[0]:
+            td=int(td/1000)
+            h=int(td/3600)
+            m=int(td/60) % 60
+            s=td % 60
+            return "{:02d}:{:02d}:{:02d} {:s}".format(h,m,s,t[1])
+        else:
+            td -= t[0]
+
+import unittest
+
+class TestWp(unittest.TestCase):
+
+        def test_ex1(self):
+            self.assertEqual(wp(1606134123,1614591276,'t2.csv'),'00:10:24 Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)','example 1')
+
+unittest.main()
diff --git a/challenge-103/roger-bell-west/raku/ch-1.p6 b/challenge-103/roger-bell-west/raku/ch-1.p6
new file mode 100755
index 0000000000..f75cbe4054
--- /dev/null
+++ b/challenge-103/roger-bell-west/raku/ch-1.p6
@@ -0,0 +1,22 @@
+#! /usr/bin/perl6
+
+use Test;
+
+plan 2;
+
+is(cz(2017),'Fire Rooster','example 1');
+is(cz(1938),'Earth Tiger','example 2');
+
+sub cz($yy) {
+  my $y=$yy;
+  if ($y < 0) {
+    $y++;
+  }
+  $y%=60;
+  while ($y < 0) {
+    $y+=60;
+  }
+  return join(' ',
+    [qw|Metal Water Wood Fire Earth|].[floor($y/2)%5],
+    ['Monkey','Rooster','Dog','Pig','Rat','Water Buffalo','Tiger','Cat','Dragon','Snake','Horse','Goat'].[$y%12]);
+}
diff --git a/challenge-103/roger-bell-west/raku/ch-2.p6 b/challenge-103/roger-bell-west/raku/ch-2.p6
new file mode 100755
index 0000000000..5ed63d1a47
--- /dev/null
+++ b/challenge-103/roger-bell-west/raku/ch-2.p6
@@ -0,0 +1,34 @@
+#! /usr/bin/perl6
+
+use Test;
+
+plan 1;
+
+is(wp(1606134123,1614591276,'t2.csv'),'00:10:24 Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)','example 1');
+
+sub wp($ts,$tn,$csvfile) {
+  my $td=($tn-$ts)*1000;
+  my $fh=open :r,$csvfile;
+  my @aoa;
+  for $fh.lines {
+    .chomp;
+    my ($len,$title)=$_.comb(/<-[,]>+/,2);
+    $title ~~ s/^\"//;
+    $title ~~ s/\"$//;
+    @aoa.push([$len,$title]);
+  }
+  my $tp=sum(map {$_[0]},@aoa);
+  $td %= $tp;
+  for @aoa -> @t {
+    if ($td < @t[0]) {
+      $td=floor($td/1000);
+      my $h=floor($td/3600);
+      my $m=floor($td/60) % 60;
+      my $s=$td % 60;
+      return sprintf('%02d:%02d:%02d %s',$h,$m,$s,@t[1]);
+    } else {
+      $td-=@t[0];
+    }
+  }
+}
+
diff --git a/challenge-103/roger-bell-west/ruby/ch-1.rb b/challenge-103/roger-bell-west/ruby/ch-1.rb
new file mode 100755
index 0000000000..7b335d9cbe
--- /dev/null
+++ b/challenge-103/roger-bell-west/ruby/ch-1.rb
@@ -0,0 +1,28 @@
+#! /usr/bin/ruby
+
+def cz(yy)
+  y=yy
+  if y<0 then
+    y += 1
+  end
+  y = y % 60
+  while y<0
+    y += 60
+  end
+  return [['Metal','Water','Wood','Fire','Earth'][(y/2).floor%5],
+          ['Monkey','Rooster','Dog','Pig','Rat','Water Buffalo','Tiger','Cat','Dragon','Snake','Horse','Goat'][y%12]].join(' ')
+end
+
+require 'test/unit'
+
+class TestCz < Test::Unit::TestCase
+
+  def test_ex1
+    assert_equal('Fire Rooster',cz(2017))
+  end
+
+  def test_ex2
+    assert_equal('Earth Tiger',cz(1938))
+  end
+
+end
diff --git a/challenge-103/roger-bell-west/ruby/ch-2.rb b/challenge-103/roger-bell-west/ruby/ch-2.rb
new file mode 100755
index 0000000000..85778e0927
--- /dev/null
+++ b/challenge-103/roger-bell-west/ruby/ch-2.rb
@@ -0,0 +1,34 @@
+#! /usr/bin/ruby
+
+require 'csv'
+
+def wp(ts,tn,csvfile)
+  td=(tn-ts)*1000
+  aoa=Array.new
+  CSV.foreach(csvfile) do |row|
+    aoa.push([row[0].to_i,row[1]])
+  end
+  tp=aoa.map{|t| t[0]}.sum
+  td=td%tp
+  aoa.each do |t|
+    if td<t[0] then
+      td=(td/1000).floor
+      h=(td/3600).floor
+      m=(td/60).floor % 60
+      s=td % 60
+      return sprintf('%02d:%02d:%02d %s',h,m,s,t[1])
+    else
+      td -= t[0]
+    end
+  end
+end
+
+require 'test/unit'
+
+class TestWp < Test::Unit::TestCase
+
+  def test_ex1
+    assert_equal('00:10:24 Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)',wp(1606134123,1614591276,'t2.csv'))
+  end
+
+end
diff --git a/challenge-103/roger-bell-west/rust/ch-1.rs b/challenge-103/roger-bell-west/rust/ch-1.rs
new file mode 100755
index 0000000000..9d3efc7884
--- /dev/null
+++ b/challenge-103/roger-bell-west/rust/ch-1.rs
@@ -0,0 +1,29 @@
+#! /bin/sh
+//usr/bin/env rustc --test $0 -o ${0}x && ./${0}x; rm -f ${0}x ; exit
+
+#[test]
+fn test_ex1() {
+    assert_eq!(cz(2017),"Fire Rooster");
+}
+
+#[test]
+fn test_ex2() {
+    assert_eq!(cz(1938),"Earth Tiger");
+}
+
+fn cz(yy: i32) -> String {
+    let mut y: i32=yy;
+    if y<0 {
+        y += 1;
+    }
+    y %= 60;
+    while y<0 {
+        y += 60;
+    }
+    let yu: usize=y as usize;
+    let mut out="".to_string();
+    out.push_str(vec!["Metal","Water","Wood","Fire","Earth"][(yu/2)%5]);
+    out.push_str(" ");
+    out.push_str(vec!["Monkey","Rooster","Dog","Pig","Rat","Water Buffalo","Tiger","Cat","Dragon","Snake","Horse","Goat"][yu%12]);
+    return out;
+}
diff --git a/challenge-103/roger-bell-west/rust/ch-2.rs b/challenge-103/roger-bell-west/rust/ch-2.rs
new file mode 100644
index 0000000000..c1b2015c9e
--- /dev/null
+++ b/challenge-103/roger-bell-west/rust/ch-2.rs
@@ -0,0 +1,47 @@
+// Cargo.toml needs:
+// [dependencies]
+// csv = "1.1"
+
+use std::fs::File;
+
+#[test]
+fn test_ex1() {
+    assert_eq!(wp(1606134123,1614591276,"t2.csv"),"00:10:24 Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)");
+}
+
+pub struct Track {
+    length: i64,
+    title: String
+}
+
+fn wp (ts: i64,tn: i64,csvfile: &str) -> String {
+    let mut td: i64=(tn-ts)*1000;
+    let file=File::open(&csvfile).unwrap();
+    let mut rdr = csv::ReaderBuilder::new()
+        .has_headers(false)
+        .from_reader(file);
+    let mut aoa: Vec<Track>=vec![];
+    for result in rdr.records() {
+        let record = result.unwrap();
+        aoa.push(Track {
+            length: record.get(0).unwrap().parse::<i64>().unwrap(),
+            title: record.get(1).unwrap().to_string()
+        });
+    }
+    let tp: i64=aoa.iter()
+        .map(|t| t.length)
+        .sum();
+    td %= tp;
+    for t in aoa {
+        if td < t.length {
+            td=td/1000;
+            let h=td/3600;
+            let m=(td/60) % 60;
+            let s=td % 60;
+            return format!("{:02}:{:02}:{:02} {}",h,m,s,t.title);
+        } else {
+            td -= t.length;
+        }
+    }
+    return "".to_string();
+}
diff --git a/challenge-103/roger-bell-west/t2.csv b/challenge-103/roger-bell-west/t2.csv
new file mode 100644
index 0000000000..4d66b079d7
--- /dev/null
+++ b/challenge-103/roger-bell-west/t2.csv
@@ -0,0 +1,7 @@
+1709363,"Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)"
+1723781,"Les Miserables Episode 2: Javert (broadcast date: 1937-07-30)"
+1723781,"Les Miserables Episode 3: The Trial (broadcast date: 1937-08-06)"
+1678356,"Les Miserables Episode 4: Cosette (broadcast date: 1937-08-13)"
+1646043,"Les Miserables Episode 5: The Grave (broadcast date: 1937-08-20)"
+1714640,"Les Miserables Episode 6: The Barricade (broadcast date: 1937-08-27)"
+1714640,"Les Miserables Episode 7: Conclusion (broadcast date: 1937-09-03)"
-- 
cgit 


From 97b6868b492a7e9991c9e489b51b9da4aed2062e Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 8 Mar 2021 11:06:35 -0500
Subject: 1st commit on 103_haskell

---
 challenge-103/stuart-little/haskell/ch-1.hs | 21 +++++++++++++++++
 challenge-103/stuart-little/haskell/ch-2.hs | 36 +++++++++++++++++++++++++++++
 2 files changed, 57 insertions(+)
 create mode 100755 challenge-103/stuart-little/haskell/ch-1.hs
 create mode 100755 challenge-103/stuart-little/haskell/ch-2.hs

(limited to 'challenge-103')

diff --git a/challenge-103/stuart-little/haskell/ch-1.hs b/challenge-103/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..695d6e2d62
--- /dev/null
+++ b/challenge-103/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,21 @@
+#!/usr/bin/env runghc
+
+-- run <script> <year>
+
+import System.Environment (getArgs)
+
+animal :: [a] -> Int -> Int -> a
+animal animals year base = (!!) animals $ mod (year - base) $ length animals
+
+elt :: [a] -> Int -> Int -> a
+elt elts year base = (!!) elts $ flip div 2 $ mod (year - base) $ 2*(length elts)
+
+animals :: [String]
+animals = ["Rat", "Ox", "Tiger", "Rabbit", "Dragon", "Snake", "Horse", "Goat", "Monkey", "Rooster", "Dog", "Pig"]
+
+elts :: [String]
+elts=["Wood", "Fire", "Earth", "Metal", "Water"];
+
+main = do
+  yr <- getArgs >>= return . (read::String->Int) . head
+  putStrLn $ (elt elts yr 1924) ++ " " ++ (animal animals yr 1924)
diff --git a/challenge-103/stuart-little/haskell/ch-2.hs b/challenge-103/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..34ecc4fa5e
--- /dev/null
+++ b/challenge-103/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,36 @@
+#!/usr/bin/env runghc
+
+-- run <script> <start time as unix epoch> <current time as unix epoch> <path-to-csv>
+
+import Data.List.Split (splitOn)
+import System.Environment (getArgs)
+
+fromCSV :: String -> IO [(Integer,String)]
+fromCSV pth = readFile pth >>= return . map (\(t:f:_)->((read::String->Integer) t, f)) . map (splitOn ",") . lines
+
+totPlayTime :: [(Integer,a)] -> Integer
+totPlayTime = sum . map fst
+
+cvToTime :: Integer -> (Integer,Integer,Integer)
+cvToTime millisecs = (h,m,s) where
+  totSecs = round $ (fromIntegral millisecs) / 1000
+  s = mod totSecs 60
+  m = mod (div totSecs 60) 60
+  h = div (totSecs - m*60 - s) (60^2)
+
+whichPlaying :: Integer -> [(Integer,a)] -> a
+whichPlaying tdiff files
+  |tdiff <= (fst . head) files = snd $ head files
+  |otherwise = whichPlaying (tdiff - (fst.head) files) $ drop 1 files
+
+wherePlaying :: Integer -> [(Integer,a)] -> (Integer,Integer,Integer)
+wherePlaying tdiff files = cvToTime $ mod tdiff $ totPlayTime files  
+  
+main = do
+  (sinit:snow:pth:_) <- getArgs  
+  files <- fromCSV pth
+  let (init:now:_) = map (read::String->Integer) [sinit,snow]
+      tdiff = mod (1000*(now-init)) $ totPlayTime files
+      (h,m,s) = wherePlaying tdiff files
+      playingFile = whichPlaying tdiff files
+  putStrLn $ "\nPlaying: " ++ playingFile ++ "\n\n" ++ "At: " ++ (show h) ++ ":" ++ (show m) ++ ":" ++ (show s)
-- 
cgit 


From ec12960f6bb688688f375626d9fd95669df7210f Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 8 Mar 2021 22:32:25 +0000
Subject: solutions to this weeks problems

---
 challenge-103/james-smith/perl/ch-1.pl      | 20 ++++++++++++
 challenge-103/james-smith/perl/ch-2.pl      | 48 +++++++++++++++++++++++++++++
 challenge-103/james-smith/perl/filelist.csv |  7 +++++
 3 files changed, 75 insertions(+)
 create mode 100644 challenge-103/james-smith/perl/ch-1.pl
 create mode 100644 challenge-103/james-smith/perl/ch-2.pl
 create mode 100644 challenge-103/james-smith/perl/filelist.csv

(limited to 'challenge-103')

diff --git a/challenge-103/james-smith/perl/ch-1.pl b/challenge-103/james-smith/perl/ch-1.pl
new file mode 100644
index 0000000000..cf59635f31
--- /dev/null
+++ b/challenge-103/james-smith/perl/ch-1.pl
@@ -0,0 +1,20 @@
+#!/usr/local/bin/perl
+
+use strict;
+
+use warnings;
+use feature qw(say);
+use Test::More;
+
+is( year_name( 2017 ), 'Yin Fire Rooster' );
+is( year_name( 1938 ), 'Yang Earth Tiger' );
+
+done_testing();
+
+sub year_name {
+  return join q( ),
+    qw(Yang Yin)[$_[0]%2],
+    qw(Metal Metal Water Water Wood Wood Fire Fire Earth Earth)[$_[0]%10],
+    qw(Monkey Rooster Dog Pig Rat Ox Tiger Rabbit Dragon Snake Horse Goat)[$_[0]%12],
+}
+
diff --git a/challenge-103/james-smith/perl/ch-2.pl b/challenge-103/james-smith/perl/ch-2.pl
new file mode 100644
index 0000000000..001e24e44a
--- /dev/null
+++ b/challenge-103/james-smith/perl/ch-2.pl
@@ -0,0 +1,48 @@
+#!/usr/local/bin/perl
+
+use strict;
+
+use warnings;
+use feature qw(say);
+use Test::More;
+use Data::Dumper qw(Dumper);
+
+is( position( 1606134123, 1614591276, 'filelist.csv'), 'Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23) - 00:10:24' );
+
+done_testing();
+
+sub position {
+  my ($start, $now, $filename ) =@_;
+
+  ## Get the durations and titles of episode..
+
+  open my $fh, q(<), $filename;
+  my @episodes = map { [split m{,?"}] } <$fh>;
+  close $fh;
+
+  ## Get the total duration of all the episodes
+  ## We need this to work out how far we have
+  ## wrapped around the time slots ....
+
+  my $tot_duration  = 0;
+     $tot_duration += $_->[0] foreach @episodes;
+
+  ## Get the position through the current cycle...
+
+  my $position =            1000 * ($now-$start) -
+       $tot_duration * int( 1000 * ($now-$start) / $tot_duration );
+
+  ## Now find which episode that is at that time...
+
+  my $episode_start = 0;
+  foreach( @episodes )  {
+    ## Return the output.... (in this case we add the duration through episode at the end of the episode name)
+    return sprintf '%s - %02d:%02d:%02d',
+      $_->[1],
+      int( ($position-$episode_start) / 3600000 )     ,
+      int( ($position-$episode_start) /   60000 ) % 60,
+      int( ($position-$episode_start) /    1000 ) % 60  if $episode_start + $_->[0] > $position;
+    $episode_start += $_->[0];
+  }
+}
+
diff --git a/challenge-103/james-smith/perl/filelist.csv b/challenge-103/james-smith/perl/filelist.csv
new file mode 100644
index 0000000000..9428b93004
--- /dev/null
+++ b/challenge-103/james-smith/perl/filelist.csv
@@ -0,0 +1,7 @@
+1709363,"Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)"
+1723781,"Les Miserables Episode 2: Javert (broadcast date: 1937-07-30)"
+1723781,"Les Miserables Episode 3: The Trial (broadcast date: 1937-08-06)"
+1678356,"Les Miserables Episode 4: Cosette (broadcast date: 1937-08-13)"
+1646043,"Les Miserables Episode 5: The Grave (broadcast date: 1937-08-20)"
+1714640,"Les Miserables Episode 6: The Barricade (broadcast date: 1937-08-27)"
+1714640,"Les Miserables Episode 7: Conclusion (broadcast date: 1937-09-03)"
-- 
cgit 


From ec7586f81b7118ac8b17a017cfd089952b5c17f9 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 8 Mar 2021 22:40:00 +0000
Subject: minor fix

---
 challenge-103/james-smith/perl/ch-2.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'challenge-103')

diff --git a/challenge-103/james-smith/perl/ch-2.pl b/challenge-103/james-smith/perl/ch-2.pl
index 001e24e44a..1c662724fe 100644
--- a/challenge-103/james-smith/perl/ch-2.pl
+++ b/challenge-103/james-smith/perl/ch-2.pl
@@ -29,8 +29,7 @@ sub position {
 
   ## Get the position through the current cycle...
 
-  my $position =            1000 * ($now-$start) -
-       $tot_duration * int( 1000 * ($now-$start) / $tot_duration );
+  my $position =  1000 * ($now-$start) % $tot_duration;
 
   ## Now find which episode that is at that time...
 
-- 
cgit 


From 2fb98d85f3b55202fa7fc177258001a576d973d2 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 8 Mar 2021 22:50:41 +0000
Subject: added documentation

---
 challenge-103/james-smith/perl/ch-2.pl | 37 +++++++++++++++++++---------------
 1 file changed, 21 insertions(+), 16 deletions(-)

(limited to 'challenge-103')

diff --git a/challenge-103/james-smith/perl/ch-2.pl b/challenge-103/james-smith/perl/ch-2.pl
index 1c662724fe..d7a49cdea1 100644
--- a/challenge-103/james-smith/perl/ch-2.pl
+++ b/challenge-103/james-smith/perl/ch-2.pl
@@ -7,25 +7,24 @@ use feature qw(say);
 use Test::More;
 use Data::Dumper qw(Dumper);
 
-is( position( 1606134123, 1614591276, 'filelist.csv'), 'Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23) - 00:10:24' );
+is( position( 1606134123, 1614591276, 'filelist.csv'), 'Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23) @ 00:10:24' );
 
 done_testing();
 
 sub position {
   my ($start, $now, $filename ) =@_;
 
-  ## Get the durations and titles of episode..
+  ## Slurp in the durations and title's of the episodes,
+  ## and while doing this - computer the total length of
+  ## all the episodes
 
+  my $tot_duration  = 0;
   open my $fh, q(<), $filename;
-  my @episodes = map { [split m{,?"}] } <$fh>;
+  $tot_duration += $_->[0] foreach my @episodes = map { [split m{,?"}] } <$fh>;
   close $fh;
 
-  ## Get the total duration of all the episodes
-  ## We need this to work out how far we have
-  ## wrapped around the time slots ....
-
-  my $tot_duration  = 0;
-     $tot_duration += $_->[0] foreach @episodes;
+  ## We need the total duration of episodes to work out
+  ## how far we have wrapped around the time slots ....
 
   ## Get the position through the current cycle...
 
@@ -33,15 +32,21 @@ sub position {
 
   ## Now find which episode that is at that time...
 
-  my $episode_start = 0;
   foreach( @episodes )  {
-    ## Return the output.... (in this case we add the duration through episode at the end of the episode name)
-    return sprintf '%s - %02d:%02d:%02d',
+
+    ## If the $position variable is less than the length of the episode
+    ## then this is the one we want to return....
+    ## $position value is the time after the start we want to return...
+    return sprintf '%s @ %02d:%02d:%02d',
       $_->[1],
-      int( ($position-$episode_start) / 3600000 )     ,
-      int( ($position-$episode_start) /   60000 ) % 60,
-      int( ($position-$episode_start) /    1000 ) % 60  if $episode_start + $_->[0] > $position;
-    $episode_start += $_->[0];
+      int( $position / 3600000 )     ,
+      int( $position /   60000 ) % 60,
+      int( $position /    1000 ) % 60  if $position < $_->[0];
+
+    ## OK - so we now need to reduce position by the length of the
+    ## episode and try again....
+
+    $position -= $_->[0];
   }
 }
 
-- 
cgit 


From 97f2d6ee35c4fea1e282f42eb1979c7701317289 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 8 Mar 2021 22:58:37 +0000
Subject: tidied up

---
 challenge-103/james-smith/perl/ch-1.pl | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

(limited to 'challenge-103')

diff --git a/challenge-103/james-smith/perl/ch-1.pl b/challenge-103/james-smith/perl/ch-1.pl
index cf59635f31..d5c564f14c 100644
--- a/challenge-103/james-smith/perl/ch-1.pl
+++ b/challenge-103/james-smith/perl/ch-1.pl
@@ -6,15 +6,23 @@ use warnings;
 use feature qw(say);
 use Test::More;
 
+## Slight extension - include the Yin/Yang prefix...
+
 is( year_name( 2017 ), 'Yin Fire Rooster' );
 is( year_name( 1938 ), 'Yang Earth Tiger' );
 
 done_testing();
 
+## Choose the order based on what would happen in years "0"..."60" - "Yang Metal Monkey"
+## is the base year there then...
+
+## To save doing the int/2 we just
+
 sub year_name {
   return join q( ),
-    qw(Yang Yin)[$_[0]%2],
-    qw(Metal Metal Water Water Wood Wood Fire Fire Earth Earth)[$_[0]%10],
-    qw(Monkey Rooster Dog Pig Rat Ox Tiger Rabbit Dragon Snake Horse Goat)[$_[0]%12],
+    qw(Yang Yin                            )[  $_[0]    %2  ],
+    qw(Metal Water Wood Fire Earth         )[ ($_[0]/2) %5  ],
+    qw(Monkey Rooster Dog Pig Rat Ox
+       Tiger Rabbit Dragon Snake Horse Goat)[  $_[0]    %12 ],
 }
 
-- 
cgit 


From 80d51aec54ad926a37eaf6a902bb174c8d744739 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 8 Mar 2021 23:00:08 +0000
Subject: whitspace

---
 challenge-103/james-smith/perl/ch-1.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'challenge-103')

diff --git a/challenge-103/james-smith/perl/ch-1.pl b/challenge-103/james-smith/perl/ch-1.pl
index d5c564f14c..ec8cbd6407 100644
--- a/challenge-103/james-smith/perl/ch-1.pl
+++ b/challenge-103/james-smith/perl/ch-1.pl
@@ -20,9 +20,9 @@ done_testing();
 
 sub year_name {
   return join q( ),
-    qw(Yang Yin                            )[  $_[0]    %2  ],
-    qw(Metal Water Wood Fire Earth         )[ ($_[0]/2) %5  ],
-    qw(Monkey Rooster Dog Pig Rat Ox
-       Tiger Rabbit Dragon Snake Horse Goat)[  $_[0]    %12 ],
+    qw( Yang   Yin                             )[  $_[0]    %2  ],
+    qw( Metal  Water   Wood   Fire  Earth      )[ ($_[0]/2) %5  ],
+    qw( Monkey Rooster Dog    Pig   Rat   Ox
+        Tiger  Rabbit  Dragon Snake Horse Goat )[  $_[0]    %12 ],
 }
 
-- 
cgit 


From 351d3293a7d376135bd6ebe349568ab50fa590ea Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 8 Mar 2021 23:00:51 +0000
Subject: whitspace

---
 challenge-103/james-smith/perl/ch-1.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'challenge-103')

diff --git a/challenge-103/james-smith/perl/ch-1.pl b/challenge-103/james-smith/perl/ch-1.pl
index ec8cbd6407..3d073f7e49 100644
--- a/challenge-103/james-smith/perl/ch-1.pl
+++ b/challenge-103/james-smith/perl/ch-1.pl
@@ -20,9 +20,9 @@ done_testing();
 
 sub year_name {
   return join q( ),
-    qw( Yang   Yin                             )[  $_[0]    %2  ],
-    qw( Metal  Water   Wood   Fire  Earth      )[ ($_[0]/2) %5  ],
+    qw( Yang   Yin                             )[  $_[0]    %  2 ],
+    qw( Metal  Water   Wood   Fire  Earth      )[ ($_[0]/2) %  5 ],
     qw( Monkey Rooster Dog    Pig   Rat   Ox
-        Tiger  Rabbit  Dragon Snake Horse Goat )[  $_[0]    %12 ],
+        Tiger  Rabbit  Dragon Snake Horse Goat )[  $_[0]    % 12 ],
 }
 
-- 
cgit 


From 26aff8f2beedb210b287de1fcc654677c69fcf37 Mon Sep 17 00:00:00 2001
From: Mark A <andemark@a-iot1t.uch.ad.pvt>
Date: Mon, 8 Mar 2021 17:46:58 -0700
Subject: initial

---
 challenge-103/mark-anderson/raku/ch-1.raku    | 27 +++++++++++++++++++++++++++
 challenge-103/mark-anderson/raku/ch-2.raku    | 23 +++++++++++++++++++++++
 challenge-103/mark-anderson/raku/filelist.csv |  7 +++++++
 3 files changed, 57 insertions(+)
 create mode 100644 challenge-103/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-103/mark-anderson/raku/ch-2.raku
 create mode 100644 challenge-103/mark-anderson/raku/filelist.csv

(limited to 'challenge-103')

diff --git a/challenge-103/mark-anderson/raku/ch-1.raku b/challenge-103/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..c5e6bb9628
--- /dev/null
+++ b/challenge-103/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,27 @@
+#!/usr/bin/env raku
+
+use Test;
+plan 11;
+
+is zodiac(1924), "Wood Rat";
+is zodiac(1938), "Earth Tiger";
+is zodiac(1942), "Water Horse";
+is zodiac(1966), "Fire Horse";
+is zodiac(1984), "Wood Rat";
+is zodiac(1999), "Earth Rabbit";
+is zodiac(2001), "Metal Snake";
+is zodiac(2012), "Water Dragon";
+is zodiac(2017), "Fire Rooster";
+is zodiac(2021), "Metal Ox";
+is zodiac(2025), "Wood Snake";
+
+sub zodiac(UInt $year is copy) 
+{
+    $year -= 1900;
+
+    my @elements = flat map { $_ xx 2 }, < Metal Water Wood Fire Earth >;
+
+    my @animals  = < Rat Ox Tiger Rabbit Dragon Snake Horse Goat Monkey Rooster Dog Pig >;
+
+    @elements[$year mod 10], @animals[$year mod 12] andthen .join(" ");
+}
diff --git a/challenge-103/mark-anderson/raku/ch-2.raku b/challenge-103/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..dacf41780e
--- /dev/null
+++ b/challenge-103/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,23 @@
+#!/usr/bin/env raku
+
+say what's-playing(1606134123, 1606134123+1708, "filelist.csv");
+say what's-playing(1606134123, 1606134123+1709, "filelist.csv");
+say what's-playing(1606134123, 1606134123+1710, "filelist.csv");
+say what's-playing(1606134123, 1606134123+1711, "filelist.csv");
+say what's-playing(1606134123, 1606134123+1712, "filelist.csv");
+
+sub what's-playing($start is copy, $current, $file)
+{
+    for $file.IO.lines -> $line 
+    {
+        my ($t, $f) = $line.split(",", 2);
+        $t /= 1000;
+        $start += $t;
+
+        if $start >= $current 
+        {
+           my $pos = $t - ($start - $current);
+           return $f ~ "\n" ~ DateTime.new(Instant.from-posix($pos)).hh-mm-ss;
+        }
+    }
+}
diff --git a/challenge-103/mark-anderson/raku/filelist.csv b/challenge-103/mark-anderson/raku/filelist.csv
new file mode 100644
index 0000000000..9428b93004
--- /dev/null
+++ b/challenge-103/mark-anderson/raku/filelist.csv
@@ -0,0 +1,7 @@
+1709363,"Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)"
+1723781,"Les Miserables Episode 2: Javert (broadcast date: 1937-07-30)"
+1723781,"Les Miserables Episode 3: The Trial (broadcast date: 1937-08-06)"
+1678356,"Les Miserables Episode 4: Cosette (broadcast date: 1937-08-13)"
+1646043,"Les Miserables Episode 5: The Grave (broadcast date: 1937-08-20)"
+1714640,"Les Miserables Episode 6: The Barricade (broadcast date: 1937-08-27)"
+1714640,"Les Miserables Episode 7: Conclusion (broadcast date: 1937-09-03)"
-- 
cgit 


From 2e88508559d6abca463563b0d672d5f1ee617b83 Mon Sep 17 00:00:00 2001
From: Mark A <andemark@a-iot1t.uch.ad.pvt>
Date: Mon, 8 Mar 2021 18:48:47 -0700
Subject: initial

---
 challenge-103/mark-anderson/raku/ch-1.raku |  2 +-
 challenge-103/mark-anderson/raku/ch-2.raku | 14 ++++++++------
 2 files changed, 9 insertions(+), 7 deletions(-)

(limited to 'challenge-103')

diff --git a/challenge-103/mark-anderson/raku/ch-1.raku b/challenge-103/mark-anderson/raku/ch-1.raku
index c5e6bb9628..7ee7b2a428 100644
--- a/challenge-103/mark-anderson/raku/ch-1.raku
+++ b/challenge-103/mark-anderson/raku/ch-1.raku
@@ -15,7 +15,7 @@ is zodiac(2017), "Fire Rooster";
 is zodiac(2021), "Metal Ox";
 is zodiac(2025), "Wood Snake";
 
-sub zodiac(UInt $year is copy) 
+sub zodiac($year is copy) 
 {
     $year -= 1900;
 
diff --git a/challenge-103/mark-anderson/raku/ch-2.raku b/challenge-103/mark-anderson/raku/ch-2.raku
index dacf41780e..5176af00df 100644
--- a/challenge-103/mark-anderson/raku/ch-2.raku
+++ b/challenge-103/mark-anderson/raku/ch-2.raku
@@ -1,10 +1,12 @@
 #!/usr/bin/env raku
 
-say what's-playing(1606134123, 1606134123+1708, "filelist.csv");
-say what's-playing(1606134123, 1606134123+1709, "filelist.csv");
-say what's-playing(1606134123, 1606134123+1710, "filelist.csv");
-say what's-playing(1606134123, 1606134123+1711, "filelist.csv");
-say what's-playing(1606134123, 1606134123+1712, "filelist.csv");
+my $start = 1606134123;
+
+say what's-playing($start, $start+1708, "filelist.csv");
+say what's-playing($start, $start+1709, "filelist.csv");
+say what's-playing($start, $start+1710, "filelist.csv");
+say what's-playing($start, $start+1711, "filelist.csv");
+say what's-playing($start, $start+1712, "filelist.csv");
 
 sub what's-playing($start is copy, $current, $file)
 {
@@ -17,7 +19,7 @@ sub what's-playing($start is copy, $current, $file)
         if $start >= $current 
         {
            my $pos = $t - ($start - $current);
-           return $f ~ "\n" ~ DateTime.new(Instant.from-posix($pos)).hh-mm-ss;
+           return $f ~ "\n" ~ DateTime.new($pos).hh-mm-ss;
         }
     }
 }
-- 
cgit 


From 75ce4e9ee0edfd4c3adbca1cc31a446e24181571 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Tue, 9 Mar 2021 09:01:41 +0000
Subject: added some extra comments are reformated the code to fit less wide
 text

---
 challenge-103/james-smith/perl/ch-1.pl |  7 +++--
 challenge-103/james-smith/perl/ch-2.pl | 56 ++++++++++++++++++++++++++--------
 2 files changed, 48 insertions(+), 15 deletions(-)

(limited to 'challenge-103')

diff --git a/challenge-103/james-smith/perl/ch-1.pl b/challenge-103/james-smith/perl/ch-1.pl
index 3d073f7e49..9edd3c31bc 100644
--- a/challenge-103/james-smith/perl/ch-1.pl
+++ b/challenge-103/james-smith/perl/ch-1.pl
@@ -13,10 +13,11 @@ is( year_name( 1938 ), 'Yang Earth Tiger' );
 
 done_testing();
 
-## Choose the order based on what would happen in years "0"..."60" - "Yang Metal Monkey"
-## is the base year there then...
+## Choose the order based on what would happen in years "0","60" - this is "Yang Metal Monkey",
+## so we make them the first entry in the list - saves us doing a "shift" to get the right
+## modulus key....
 
-## To save doing the int/2 we just
+## We have added in the last "classifier" - Yang/Yin which split the element entry in two.
 
 sub year_name {
   return join q( ),
diff --git a/challenge-103/james-smith/perl/ch-2.pl b/challenge-103/james-smith/perl/ch-2.pl
index d7a49cdea1..f924ef1806 100644
--- a/challenge-103/james-smith/perl/ch-2.pl
+++ b/challenge-103/james-smith/perl/ch-2.pl
@@ -7,26 +7,45 @@ use feature qw(say);
 use Test::More;
 use Data::Dumper qw(Dumper);
 
-is( position( 1606134123, 1614591276, 'filelist.csv'), 'Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23) @ 00:10:24' );
+is( position( 1606134123, 1614591276, 'filelist.csv'),
+  'Les Miserables Episode 1: The Bishop (broadcast'.
+    ' date: 1937-07-23) @ 00:10:24' );
 
 done_testing();
 
 sub position {
-  my ($start, $now, $filename ) =@_;
+  my ($start, $now, $filename ) = @_;
 
   ## Slurp in the durations and title's of the episodes,
   ## and while doing this - computer the total length of
-  ## all the episodes
+  ## all the episodes.
+  ##
+  ## A neat feature of perl is that we can define
+  ## variables anywhere in the statement not just at the
+  ## beginning - so we can do the slurp in a single line
+  ##
+  ## Rather than using a full CSV library we split on ,"
+  ## as this works for the set of data that we have in
+  ## the problem but we could use Text::CSV for more
+  ## complex strings.
+  ##
+  ## Note values in @episodes are triples (the third is
+  ## any part of the string after the second " which
+  ## happens just to be "\n"
 
   my $tot_duration  = 0;
   open my $fh, q(<), $filename;
-  $tot_duration += $_->[0] foreach my @episodes = map { [split m{,?"}] } <$fh>;
+  $tot_duration += $_->[0]
+    foreach my @episodes = map { [split m{,?"}] } <$fh>;
   close $fh;
 
   ## We need the total duration of episodes to work out
   ## how far we have wrapped around the time slots ....
 
   ## Get the position through the current cycle...
+  ## Note we have to multiple the difference by 1000
+  ## as the as the tot_duration is in milliseconds and
+  ## now/start in seconds.
 
   my $position =  1000 * ($now-$start) % $tot_duration;
 
@@ -34,17 +53,30 @@ sub position {
 
   foreach( @episodes )  {
 
-    ## If the $position variable is less than the length of the episode
-    ## then this is the one we want to return....
-    ## $position value is the time after the start we want to return...
+    ## If the $position variable is less than the length
+    ## of the episode then this is the one we want to
+    ## return....
+    ##
+    ## $position value is the time after the start we
+    ## want to return... As it is milliseconds we don't
+    ## just divide by 60 & 3600 we have to multiply
+    ## these divisors by 1000
+    ##
+    ## Rather than return an array of two values name
+    ## and position - we return as a string - this is
+    ## to make the test call easier byt we could just
+    ## return [ $_->[0], $position ] which is the second
+    ## half of the sprintf '%02d:%02d:%02d', ....
+
     return sprintf '%s @ %02d:%02d:%02d',
       $_->[1],
-      int( $position / 3600000 )     ,
-      int( $position /   60000 ) % 60,
-      int( $position /    1000 ) % 60  if $position < $_->[0];
+      int( $position/3600000 )     ,
+      int( $position/  60000 ) % 60,
+      int( $position/   1000 ) % 60  if $position < $_->[0];
 
-    ## OK - so we now need to reduce position by the length of the
-    ## episode and try again....
+    ## OK - rather than "moving the start time" - we just
+    ## reduce position by the length of the episode and
+    ## try again....
 
     $position -= $_->[0];
   }
-- 
cgit 


From 1a2ae0c10cfa6ec2a8a750deb0efc0f6160cbb06 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Tue, 9 Mar 2021 09:02:58 +0000
Subject: tidied up layout

---
 challenge-103/james-smith/perl/ch-1.pl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'challenge-103')

diff --git a/challenge-103/james-smith/perl/ch-1.pl b/challenge-103/james-smith/perl/ch-1.pl
index 9edd3c31bc..0d0382811f 100644
--- a/challenge-103/james-smith/perl/ch-1.pl
+++ b/challenge-103/james-smith/perl/ch-1.pl
@@ -13,11 +13,12 @@ is( year_name( 1938 ), 'Yang Earth Tiger' );
 
 done_testing();
 
-## Choose the order based on what would happen in years "0","60" - this is "Yang Metal Monkey",
-## so we make them the first entry in the list - saves us doing a "shift" to get the right
-## modulus key....
+## Choose the order based on what would happen in years "0","60" -
+## this is "Yang Metal Monkey", so we make them the first entry in
+## the list - saves us doing a "shift" to get the right modulus key.
 
-## We have added in the last "classifier" - Yang/Yin which split the element entry in two.
+## We have added in the last "classifier" - Yang/Yin which split the
+## element entry in two.
 
 sub year_name {
   return join q( ),
-- 
cgit 


From dc604bc6f136267d4bd276419295e47ddb5f595a Mon Sep 17 00:00:00 2001
From: Simon Green <mail@simon.green>
Date: Tue, 9 Mar 2021 23:11:47 +1000
Subject: sgreen solution to challenge 103

---
 challenge-103/sgreen/README.md    |  4 ++--
 challenge-103/sgreen/blog.txt     |  1 +
 challenge-103/sgreen/perl/ch-1.pl | 21 +++++++++++++++++++
 challenge-103/sgreen/perl/ch-2.pl | 44 +++++++++++++++++++++++++++++++++++++++
 4 files changed, 68 insertions(+), 2 deletions(-)
 create mode 100644 challenge-103/sgreen/blog.txt
 create mode 100755 challenge-103/sgreen/perl/ch-1.pl
 create mode 100755 challenge-103/sgreen/perl/ch-2.pl

(limited to 'challenge-103')

diff --git a/challenge-103/sgreen/README.md b/challenge-103/sgreen/README.md
index 6fb5a4942c..96e32e9edb 100644
--- a/challenge-103/sgreen/README.md
+++ b/challenge-103/sgreen/README.md
@@ -1,3 +1,3 @@
-# The Weekly Challenge 102
+# The Weekly Challenge 103
 
-Solution by Simon Green. [Blog](https://dev.to/simongreennet/weekly-challenge-102-57jb)
+Solution by Simon Green. [Blog](https://dev.to/simongreennet/weekly-challenge-103-1hpm)
diff --git a/challenge-103/sgreen/blog.txt b/challenge-103/sgreen/blog.txt
new file mode 100644
index 0000000000..82182bff1e
--- /dev/null
+++ b/challenge-103/sgreen/blog.txt
@@ -0,0 +1 @@
+https://dev.to/simongreennet/weekly-challenge-103-1hpm
diff --git a/challenge-103/sgreen/perl/ch-1.pl b/challenge-103/sgreen/perl/ch-1.pl
new file mode 100755
index 0000000000..a6f11e382b
--- /dev/null
+++ b/challenge-103/sgreen/perl/ch-1.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+sub main {
+    my $year = shift;
+
+    # Sanity check
+    die "You must enter a year\n" if not defined $year;
+    die "The year does not look like a positive integer\n" unless $year =~ /^\d+$/;
+
+    my @zodiacs  = (qw(Monkey Rooster Dog Pig Rat Ox Tiger Rabbit Dragon Snake Horse Goat));
+    my @elements = (qw(Metal Water Wood Fire Earth));
+
+    # State the zodiac sign
+    say $elements[ int( $year / 2 ) % 5 ], ' ', $zodiacs[ $year % 12 ];
+}
+
+main(@ARGV);
diff --git a/challenge-103/sgreen/perl/ch-2.pl b/challenge-103/sgreen/perl/ch-2.pl
new file mode 100755
index 0000000000..0cac111e8e
--- /dev/null
+++ b/challenge-103/sgreen/perl/ch-2.pl
@@ -0,0 +1,44 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+use Text::CSV 'csv';
+use List::Util 'sum';
+
+sub main {
+    my ( $start, $now, $file ) = @_;
+
+    # Sanity check
+    die "You must enter the start time\n"                             unless $start;
+    die "You must enter the current time\n"                           unless $now;
+    die "You must enter the file name\n"                              unless $file;
+    die "The start time must be an integer (seconds since epoch)\n"   unless $start =~ /^\d+$/;
+    die "The current time must be an integer (seconds since epoch)\n" unless $now =~ /^\d+$/;
+    die "The current time cannot be earlier than the start time\n" if $now < $start;
+    die "The file '$file' does not exist (or is not a file)\n" unless -f $file;
+
+    # Read the CSV file, and find out the total length
+    my $tracks          = csv( { in => $file } );
+    my $playlist_length = sum( map { $_->[0] } @$tracks );
+
+    # Find out how far through the playlist we are
+    my $playlist_position = ( $now - $start ) * 1000 % $playlist_length;
+
+    # Work through the play list to see what song is playing
+    while ( my $row = shift @$tracks ) {
+        my ( $track_length, $track_name ) = @$row;
+        if ( $track_length <= $playlist_position ) {
+            $playlist_position -= $track_length;
+            next;
+        }
+
+        # We are playing this track. Get the number of seconds we are into the track and display this
+        my $secs = int( $playlist_position / 1000 );
+        say sprintf '%s %02d:%02d:%02d', $track_name, int( $secs / 3_600 ), int( $secs % 3_600 / 60 ), $secs % 60;
+        last;
+    }
+}
+
+main(@ARGV);
-- 
cgit 


From 9e2eb3e4ae058c514b13cd463b455238e0de6eef Mon Sep 17 00:00:00 2001
From: boblied <boblied@gmail.com>
Date: Tue, 9 Mar 2021 08:22:02 -0600
Subject: PWC 103, Task 1, Chinese Zodiac

---
 challenge-103/bob-lied/README       |  4 ++--
 challenge-103/bob-lied/perl/ch-1.pl | 41 +++++++++++++++++++++++++++++++++++++
 2 files changed, 43 insertions(+), 2 deletions(-)
 create mode 100755 challenge-103/bob-lied/perl/ch-1.pl

(limited to 'challenge-103')

diff --git a/challenge-103/bob-lied/README b/challenge-103/bob-lied/README
index 5d63db13d1..8417e3a7f7 100644
--- a/challenge-103/bob-lied/README
+++ b/challenge-103/bob-lied/README
@@ -1,3 +1,3 @@
-Solutions to weekly challenge 102 by Bob Lied.
+Solutions to weekly challenge 103 by Bob Lied.
 
-https://perlweeklychallenge.org/blog/perl-weekly-challenge-102/
+https://perlweeklychallenge.org/blog/perl-weekly-challenge-103/
diff --git a/challenge-103/bob-lied/perl/ch-1.pl b/challenge-103/bob-lied/perl/ch-1.pl
new file mode 100755
index 0000000000..80ea20934b
--- /dev/null
+++ b/challenge-103/bob-lied/perl/ch-1.pl
@@ -0,0 +1,41 @@
+#!/usr/bin/env perl
+# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
+#=============================================================================
+# ch-1.pl
+#=============================================================================
+# Copyright (c) 2021, Bob Lied
+#=============================================================================
+# Perl Weekly Challenge 103, TASK #1 › Chinese Zodiac
+#
+# You are given a year $year.
+# Write a script to determine the Chinese Zodiac for the given year $year.
+# Please check out wikipage for more information about it.
+#
+# The animal cycle: Rat, Ox, Tiger, Rabbit, Dragon, Snake, Horse, Goat, Monkey,
+# Rooster, Dog, Pig.
+# The element cycle: Wood, Fire, Earth, Metal, Water.
+#
+# Example 1: Input: 2017    Output: Fire Rooster
+# Example 2: Input: 1938    Output: Earth Tiger
+#=============================================================================
+
+use strict;
+use warnings;
+use 5.020;
+
+use experimental qw/signatures/;
+
+my @AnimalCycle = qw( Rat Ox Tiger Rabbit Dragon Snake Horse Goat Monkey Rooster Dog Pig );
+my @ElementCycle = qw( Wood Wood Fire Fire Earth Earth Metal Metal Water Water );
+
+my $BaseYear = 1924;
+
+my $year = shift;
+die "Usage: $0 YEAR\n" unless $year;
+
+my $relativeYear = $year - $BaseYear;
+
+my  $animal = $relativeYear % @AnimalCycle;
+my $element = $relativeYear % @ElementCycle;
+
+say "$ElementCycle[$element] $AnimalCycle[$animal]";
-- 
cgit 


From bfa8b8a3dda2ac37c22c7f4fc2867211f92f65e0 Mon Sep 17 00:00:00 2001
From: Paulo Custodio <pauloscustodio@gmail.com>
Date: Tue, 9 Mar 2021 19:51:39 +0000
Subject: Add Perl, Lua and Python solutions to challenge 103

---
 challenge-103/paulo-custodio/lua/ch-1.lua   |  33 ++
 challenge-103/paulo-custodio/lua/ch-2.lua   |  97 +++++
 challenge-103/paulo-custodio/perl/ch-1.pl   |  36 ++
 challenge-103/paulo-custodio/perl/ch-2.pl   |  95 +++++
 challenge-103/paulo-custodio/playlist.csv   |   7 +
 challenge-103/paulo-custodio/python/ch-1.py |  35 ++
 challenge-103/paulo-custodio/python/ch-2.py |  96 +++++
 challenge-103/paulo-custodio/t/test-1.yaml  | 600 ++++++++++++++++++++++++++++
 challenge-103/paulo-custodio/t/test-2.yaml  | 308 ++++++++++++++
 challenge-103/paulo-custodio/test.pl        |   7 +
 10 files changed, 1314 insertions(+)
 create mode 100644 challenge-103/paulo-custodio/lua/ch-1.lua
 create mode 100644 challenge-103/paulo-custodio/lua/ch-2.lua
 create mode 100644 challenge-103/paulo-custodio/perl/ch-1.pl
 create mode 100644 challenge-103/paulo-custodio/perl/ch-2.pl
 create mode 100644 challenge-103/paulo-custodio/playlist.csv
 create mode 100644 challenge-103/paulo-custodio/python/ch-1.py
 create mode 100644 challenge-103/paulo-custodio/python/ch-2.py
 create mode 100644 challenge-103/paulo-custodio/t/test-1.yaml
 create mode 100644 challenge-103/paulo-custodio/t/test-2.yaml
 create mode 100644 challenge-103/paulo-custodio/test.pl

(limited to 'challenge-103')

diff --git a/challenge-103/paulo-custodio/lua/ch-1.lua b/challenge-103/paulo-custodio/lua/ch-1.lua
new file mode 100644
index 0000000000..1a0143f85f
--- /dev/null
+++ b/challenge-103/paulo-custodio/lua/ch-1.lua
@@ -0,0 +1,33 @@
+#!/usr/bin/env lua
+
+--[[
+Challenge 103
+
+TASK #1 › Chinese Zodiac
+Submitted by: Mohammad S Anwar
+You are given a year $year.
+
+Write a script to determine the Chinese Zodiac for the given year $year. 
+Please check out wikipage for more information about it.
+
+The animal cycle: Rat, Ox, Tiger, Rabbit, Dragon, Snake, Horse, Goat, Monkey,
+Rooster, Dog, Pig.
+The element cycle: Wood, Fire, Earth, Metal, Water.
+
+Example 1:
+    Input: 2017
+    Output: Fire Rooster
+Example 2:
+    Input: 1938
+    Output: Earth Tiger
+--]]
+
+animals = {'Rat', 'Ox', 'Tiger', 'Rabbit', 'Dragon', 'Snake', 'Horse', 'Goat', 'Monkey', 'Rooster', 'Dog', 'Pig'}
+elements = {'Wood', 'Wood', 'Fire', 'Fire', 'Earth', 'Earth', 'Metal', 'Metal', 'Water', 'Water'}
+
+year = tonumber(arg[1])
+num_years = year - 1924
+element = 1 + (num_years % #elements)
+animal  = 1 + (num_years % #animals)
+
+io.write(elements[element]," ",animals[animal],"\n")
diff --git a/challenge-103/paulo-custodio/lua/ch-2.lua b/challenge-103/paulo-custodio/lua/ch-2.lua
new file mode 100644
index 0000000000..cb0a0f74a6
--- /dev/null
+++ b/challenge-103/paulo-custodio/lua/ch-2.lua
@@ -0,0 +1,97 @@
+#!/usr/bin/env lua
+
+--[[
+Challenge 103
+
+TASK #2 › What’s playing?
+Submitted by: Albert Croft
+Working from home, you decided that on occasion you wanted some background
+noise while working. You threw together a network streamer to continuously
+loop through the files and launched it in a tmux (or screen) session, giving
+it a directory tree of files to play. During the day, you connected an audio
+player to the stream, listening through the workday, closing it when done.
+
+For weeks you connect to the stream daily, slowly noticing a gradual drift of
+the media. After several weeks, you take vacation. When you return, you are
+pleasantly surprised to find the streamer still running. Before connecting,
+however, if you consider the puzzle of determining which track is playing.
+
+After looking at a few modules to read info regarding the media, a quick bit
+of coding gave you a file list. The file list is in a simple CSV format, each
+line containing two fields: the first the number of milliseconds in length,
+the latter the media’s title (this example is of several episodes available
+from the MercuryTheatre.info):
+
+    1709363,"Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)"
+    1723781,"Les Miserables Episode 2: Javert (broadcast date: 1937-07-30)"
+    1723781,"Les Miserables Episode 3: The Trial (broadcast date: 1937-08-06)"
+    1678356,"Les Miserables Episode 4: Cosette (broadcast date: 1937-08-13)"
+    1646043,"Les Miserables Episode 5: The Grave (broadcast date: 1937-08-20)"
+    1714640,"Les Miserables Episode 6: The Barricade (broadcast date: 1937-08-27)"
+    1714640,"Les Miserables Episode 7: Conclusion (broadcast date: 1937-09-03)"
+For this script, you can assume to be provided the following information:
+
+    * the value of $^T ($BASETIME) of the streamer script,
+    * the value of time(), and
+    * a CSV file containing the media to play consisting of the length in
+milliseconds and an identifier for the media (title, filename, or other).
+Write a program to output which file is currently playing. For purposes of
+this script, you may assume gapless playback, and format the output as you
+see fit.
+
+Optional: Also display the current position in the media as a time-like value.
+
+Example:
+
+Input: 3 command line parameters: start time, current time, file name
+
+    # Streamer start time: Tue Nov 23 12:22:03 2020
+    1606134123
+
+    # Current time:        Mon Mar  1 09:34:36 2021
+    1614591276
+
+    # filelist.csv
+
+Output:
+
+    "Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)"
+    00:17:33
+--]]
+
+start_secs    = tonumber(arg[1])
+current_secs  = tonumber(arg[2])
+playlist_file = arg[3]
+
+-- read playlist
+playlist = {}
+playlist_total_secs = 0
+for line in io.lines(playlist_file) do
+	local ms, title = line:match('%s*(.-),%s*"(.-)"')
+	local secs = math.floor(tonumber(ms)/1000+0.5)
+	table.insert(playlist, { secs, title })
+	playlist_total_secs = playlist_total_secs + secs
+end
+
+-- compute location
+total_secs = current_secs - start_secs
+playlist_secs = total_secs % playlist_total_secs
+
+-- find current track
+for k, v in pairs(playlist) do
+	local secs, title = v[1], v[2]
+	if playlist_secs < secs then 			-- playing this title
+		io.write(title, "\n")
+		
+		local hh = math.floor(playlist_secs / 3600)
+		playlist_secs = playlist_secs % 3600
+		local mm = math.floor(playlist_secs / 60)
+		playlist_secs = playlist_secs % 60
+		local ss = playlist_secs
+		
+		io.write(string.format("%02d:%02d:%02d", hh, mm, ss), "\n")
+		break
+	else
+		playlist_secs = playlist_secs - secs
+	end
+end
diff --git a/challenge-103/paulo-custodio/perl/ch-1.pl b/challenge-103/paulo-custodio/perl/ch-1.pl
new file mode 100644
index 0000000000..3587c47f0f
--- /dev/null
+++ b/challenge-103/paulo-custodio/perl/ch-1.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+
+# Challenge 103
+# 
+# TASK #1 › Chinese Zodiac
+# Submitted by: Mohammad S Anwar
+# You are given a year $year.
+# 
+# Write a script to determine the Chinese Zodiac for the given year $year. 
+# Please check out wikipage for more information about it.
+# 
+# The animal cycle: Rat, Ox, Tiger, Rabbit, Dragon, Snake, Horse, Goat, Monkey,
+# Rooster, Dog, Pig.
+# The element cycle: Wood, Fire, Earth, Metal, Water.
+# 
+# Example 1:
+#     Input: 2017
+#     Output: Fire Rooster
+# Example 2:
+#     Input: 1938
+#     Output: Earth Tiger
+
+use strict;
+use warnings;
+use 5.030;
+
+my @animals = qw(Rat Ox Tiger Rabbit Dragon Snake Horse Goat Monkey Rooster Dog Pig);
+my @elements = qw(Wood Wood Fire Fire Earth Earth Metal Metal Water Water);
+
+my($year) = @ARGV;
+defined $year or $year = 1900+ (localtime(time))[5];
+my $num_years = $year-1924;
+my $element = $num_years % scalar(@elements);
+my $animal = $num_years % scalar(@animals);
+
+say $elements[$element]," ",$animals[$animal];
diff --git a/challenge-103/paulo-custodio/perl/ch-2.pl b/challenge-103/paulo-custodio/perl/ch-2.pl
new file mode 100644
index 0000000000..0263997cb5
--- /dev/null
+++ b/challenge-103/paulo-custodio/perl/ch-2.pl
@@ -0,0 +1,95 @@
+#!/usr/bin/perl
+
+# Challenge 103
+# 
+# TASK #2 › What’s playing?
+# Submitted by: Albert Croft
+# Working from home, you decided that on occasion you wanted some background
+# noise while working. You threw together a network streamer to continuously
+# loop through the files and launched it in a tmux (or screen) session, giving
+# it a directory tree of files to play. During the day, you connected an audio
+# player to the stream, listening through the workday, closing it when done.
+# 
+# For weeks you connect to the stream daily, slowly noticing a gradual drift of
+# the media. After several weeks, you take vacation. When you return, you are
+# pleasantly surprised to find the streamer still running. Before connecting,
+# however, if you consider the puzzle of determining which track is playing.
+# 
+# After looking at a few modules to read info regarding the media, a quick bit
+# of coding gave you a file list. The file list is in a simple CSV format, each
+# line containing two fields: the first the number of milliseconds in length,
+# the latter the media’s title (this example is of several episodes available
+# from the MercuryTheatre.info):
+# 
+#     1709363,"Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)"
+#     1723781,"Les Miserables Episode 2: Javert (broadcast date: 1937-07-30)"
+#     1723781,"Les Miserables Episode 3: The Trial (broadcast date: 1937-08-06)"
+#     1678356,"Les Miserables Episode 4: Cosette (broadcast date: 1937-08-13)"
+#     1646043,"Les Miserables Episode 5: The Grave (broadcast date: 1937-08-20)"
+#     1714640,"Les Miserables Episode 6: The Barricade (broadcast date: 1937-08-27)"
+#     1714640,"Les Miserables Episode 7: Conclusion (broadcast date: 1937-09-03)"
+# For this script, you can assume to be provided the following information:
+# 
+#     * the value of $^T ($BASETIME) of the streamer script,
+#     * the value of time(), and
+#     * a CSV file containing the media to play consisting of the length in
+# milliseconds and an identifier for the media (title, filename, or other).
+# Write a program to output which file is currently playing. For purposes of
+# this script, you may assume gapless playback, and format the output as you
+# see fit.
+# 
+# Optional: Also display the current position in the media as a time-like value.
+# 
+# Example:
+# 
+# Input: 3 command line parameters: start time, current time, file name
+# 
+#     # Streamer start time: Tue Nov 23 12:22:03 2020
+#     1606134123
+# 
+#     # Current time:        Mon Mar  1 09:34:36 2021
+#     1614591276
+# 
+#     # filelist.csv
+# 
+# Output:
+# 
+#     "Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)"
+#     00:17:33
+	
+use strict;
+use warnings;
+use 5.030;
+
+@ARGV==3 or die "Usage: ch-2.pl start_secs current_secs playlist.csv\n";
+my($start_secs, $current_secs, $playlist) = @ARGV;
+
+my @playlist;
+my $playlist_total_secs = 0;
+open(my $fh, "<", $playlist) or die "open file $playlist: $!\n";
+while (<$fh>) {
+	chomp;
+	my($ms, $title) = split(/,/, $_, 2);
+	my $secs = int($ms/1000+0.5);
+	$title =~ s/^\"(.*)\"$/$1/;
+	push @playlist, [$secs, $title];
+	$playlist_total_secs += $secs;
+}
+
+my $total_secs = $current_secs - $start_secs;
+my $playlist_secs = $total_secs % $playlist_total_secs;
+
+for (@playlist) {
+	my($secs, $title) = @$_;
+	if ($playlist_secs < $secs) {	# playing this title
+		say $title;
+		my $hh = int($playlist_secs/3600); $playlist_secs %= 3600;
+		my $mm = int($playlist_secs/60); $playlist_secs %= 60;
+		my $ss = $playlist_secs;
+		say sprintf("%02d:%02d:%02d", $hh, $mm, $ss);
+		last;
+	}
+	else {
+		$playlist_secs -= $secs;
+	}
+}
diff --git a/challenge-103/paulo-custodio/playlist.csv b/challenge-103/paulo-custodio/playlist.csv
new file mode 100644
index 0000000000..9428b93004
--- /dev/null
+++ b/challenge-103/paulo-custodio/playlist.csv
@@ -0,0 +1,7 @@
+1709363,"Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)"
+1723781,"Les Miserables Episode 2: Javert (broadcast date: 1937-07-30)"
+1723781,"Les Miserables Episode 3: The Trial (broadcast date: 1937-08-06)"
+1678356,"Les Miserables Episode 4: Cosette (broadcast date: 1937-08-13)"
+1646043,"Les Miserables Episode 5: The Grave (broadcast date: 1937-08-20)"
+1714640,"Les Miserables Episode 6: The Barricade (broadcast date: 1937-08-27)"
+1714640,"Les Miserables Episode 7: Conclusion (broadcast date: 1937-09-03)"
diff --git a/challenge-103/paulo-custodio/python/ch-1.py b/challenge-103/paulo-custodio/python/ch-1.py
new file mode 100644
index 0000000000..4231b5f109
--- /dev/null
+++ b/challenge-103/paulo-custodio/python/ch-1.py
@@ -0,0 +1,35 @@
+#!/usr/bin/env python
+
+# Challenge 103
+# 
+# TASK #1 > Chinese Zodiac
+# Submitted by: Mohammad S Anwar
+# You are given a year $year.
+# 
+# Write a script to determine the Chinese Zodiac for the given year $year. 
+# Please check out wikipage for more information about it.
+# 
+# The animal cycle: Rat, Ox, Tiger, Rabbit, Dragon, Snake, Horse, Goat, Monkey,
+# Rooster, Dog, Pig.
+# The element cycle: Wood, Fire, Earth, Metal, Water.
+# 
+# Example 1:
+#     Input: 2017
+#     Output: Fire Rooster
+# Example 2:
+#     Input: 1938
+#     Output: Earth Tiger
+
+import sys;
+
+animals = ['Rat','Ox','Tiger','Rabbit','Dragon','Snake','Horse','Goat',
+		   'Monkey','Rooster','Dog','Pig']
+elements = ['Wood','Wood','Fire','Fire','Earth','Earth','Metal','Metal',
+			'Water','Water'];
+
+year = int(sys.argv[1])
+num_years = year-1924;
+element = num_years % len(elements);
+animal = num_years % len(animals);
+
+print(elements[element]," ",animals[animal]);
diff --git a/challenge-103/paulo-custodio/python/ch-2.py b/challenge-103/paulo-custodio/python/ch-2.py
new file mode 100644
index 0000000000..abfa505427
--- /dev/null
+++ b/challenge-103/paulo-custodio/python/ch-2.py
@@ -0,0 +1,96 @@
+#!/usr/bin/env python
+
+# Challenge 103
+# 
+# TASK #2 > What's playing?
+# Submitted by: Albert Croft
+# Working from home, you decided that on occasion you wanted some background
+# noise while working. You threw together a network streamer to continuously
+# loop through the files and launched it in a tmux (or screen) session, giving
+# it a directory tree of files to play. During the day, you connected an audio
+# player to the stream, listening through the workday, closing it when done.
+# 
+# For weeks you connect to the stream daily, slowly noticing a gradual drift of
+# the media. After several weeks, you take vacation. When you return, you are
+# pleasantly surprised to find the streamer still running. Before connecting,
+# however, if you consider the puzzle of determining which track is playing.
+# 
+# After looking at a few modules to read info regarding the media, a quick bit
+# of coding gave you a file list. The file list is in a simple CSV format, each
+# line containing two fields: the first the number of milliseconds in length,
+# the latter the media's title (this example is of several episodes available
+# from the MercuryTheatre.info):
+# 
+#     1709363,"Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)"
+#     1723781,"Les Miserables Episode 2: Javert (broadcast date: 1937-07-30)"
+#     1723781,"Les Miserables Episode 3: The Trial (broadcast date: 1937-08-06)"
+#     1678356,"Les Miserables Episode 4: Cosette (broadcast date: 1937-08-13)"
+#     1646043,"Les Miserables Episode 5: The Grave (broadcast date: 1937-08-20)"
+#     1714640,"Les Miserables Episode 6: The Barricade (broadcast date: 1937-08-27)"
+#     1714640,"Les Miserables Episode 7: Conclusion (broadcast date: 1937-09-03)"
+# For this script, you can assume to be provided the following information:
+# 
+#     * the value of $^T ($BASETIME) of the streamer script,
+#     * the value of time(), and
+#     * a CSV file containing the media to play consisting of the length in
+# milliseconds and an identifier for the media (title, filename, or other).
+# Write a program to output which file is currently playing. For purposes of
+# this script, you may assume gapless playback, and format the output as you
+# see fit.
+# 
+# Optional: Also display the current position in the media as a time-like value.
+# 
+# Example:
+# 
+# Input: 3 command line parameters: start time, current time, file name
+# 
+#     # Streamer start time: Tue Nov 23 12:22:03 2020
+#     1606134123
+# 
+#     # Current time:        Mon Mar  1 09:34:36 2021
+#     1614591276
+# 
+#     # filelist.csv
+# 
+# Output:
+# 
+#     "Les Miserables Episode 1: The Bishop (broadcast date: 1937-07-23)"
+#     00:17:33
+
+import csv
+import sys
+
+def read_playlist(filename):
+	playlist = []
+	with open(filename) as csv_file:
+		csv_reader = csv.reader(csv_file, delimiter=',')
+		for row in csv_reader:
+			playlist.append([int(int(row[0])/1000+0.5), row[1]])
+	return playlist
+
+def total_time(playlist):
+	sum = 0
+	for x in playlist:
+		sum += x[0] 
+	return sum
+
+def show_title(start_secs, current_secs, playlist_file):
+	playlist = read_playlist('playlist.csv')
+	total_secs = current_secs - start_secs
+	playlist_total_secs = total_time(playlist)
+	playlist_secs = total_secs % playlist_total_secs
+	
+	for item in playlist:
+		if playlist_secs < item[0]:
+			print(item[1])
+			hh = int(playlist_secs/3600)
+			playlist_secs %= 3600
+			mm = int(playlist_secs/60)
+			playlist_secs %= 60
+			ss = playlist_secs;
+			print("{:02}:{:02}:{:02}".format(hh, mm, ss))
+			break
+		else:
+			playlist_secs -= item[0]
+
+show_title(int(sys.argv[1]), int(sys.argv[2]), sys.argv[3])
diff --git a/challenge-103/paulo-custodio/t/test-1.yaml b/challenge-103/paulo-custodio/t/test-1.yaml
new file mode 100644
index 0000000000..456326b454
--- /dev/null
+++ b/challenge-103/paulo-custodio/t/test-1.yaml
@@ -0,0 +1,600 @@
+- setup:
+  cleanup:
+  args:     1924
+  input:
+  output:   Wood Rat
+- setup:
+  cleanup:
+  args:     1925
+  input:
+  output:   Wood Ox
+- setup:
+  cleanup:
+  args:     1926
+  input:
+  output:   Fire Tiger
+- setup:
+  cleanup:
+  args:     1927
+  input:
+  output:   Fire Rabbit
+- setup:
+  cleanup:
+  args:     1928
+  input:
+  output:   Earth Dragon
+- setup:
+  cleanup:
+  args:     1929
+  input:
+  output:   Earth Snake
+- setup:
+  cleanup:
+  args:     1930
+  input:
+  output:   Metal Horse
+- setup:
+  cleanup:
+  args:     1931
+  input:
+  output:   Metal Goat
+- setup:
+  cleanup:
+  args:     1932
+  input:
+  output:   Water Monkey
+- setup:
+  cleanup:
+  args:     1933
+  input:
+  output:   Water Rooster
+- setup:
+  cleanup:
+  args:     1934
+  input:
+  output:   Wood Dog
+- setup:
+  cleanup:
+  args:     1935
+  input:
+  output:   Wood Pig
+- setup:
+  cleanup:
+  args:     1936
+  input:
+  output:   Fire Rat
+- setup:
+  cleanup:
+  args:     1937
+  input:
+  output:   Fire Ox
+- setup:
+  cleanup:
+  args:     1938
+  input:
+  output:   Earth Tiger
+- setup:
+  cleanup:
+  args:     1939
+  input:
+  output:   Earth Rabbit
+- setup:
+  cleanup:
+  args:     1940
+  input:
+  output:   Metal Dragon
+- setup:
+  cleanup:
+  args:     1941
+  input:
+  output:   Metal Snake
+- setup:
+  cleanup:
+  args:     1942
+  input:
+  output:   Water Horse
+- setup:
+  cleanup:
+  args:     1943
+  input:
+  output:   Water Goat
+- setup:
+  cleanup:
+  args:     1944
+  input:
+  output:   Wood Monkey
+- setup:
+  cleanup:
+  args:     1945
+  input:
+  output:   Wood Rooster
+- setup:
+  cleanup:
+  args:     1946
+  input:
+  output:   Fire Dog
+- setup:
+  cleanup:
+  args:     1947
+  input:
+  output:   Fire Pig
+- setup:
+  cleanup:
+  args:     1948
+  input:
+  output:   Earth Rat
+- setup:
+  cleanup:
+  args:     1949
+  input:
+  output:   Earth Ox
+- setup:
+  cleanup:
+  args:     1950
+  input:
+  output:   Metal Tiger
+- setup:
+  cleanup:
+  args:     1951
+  input:
+  output:   Metal Rabbit
+- setup:
+  cleanup:
+  args:     1952
+  input:
+  output:   Water Dragon
+- setup:
+  cleanup:
+  args:     1953
+  input:
+  output:   Water Snake
+- setup:
+  cleanup:
+  args:     1954
+  input:
+  output:   Wood Horse
+- setup:
+  cleanup:
+  args:     1955
+  input:
+  output:   Wood Goat
+- setup:
+  cleanup:
+  args:     1956
+  input:
+  output:   Fire Monkey
+- setup:
+  cleanup:
+  args:     1957
+  input:
+  output:   Fire Rooster
+- setup:
+  cleanup:
+  args:     1958
+  input:
+  output:   Earth Dog
+- setup:
+  cleanup:
+  args:     1959
+  input:
+  output:   Earth Pig
+- setup:
+  cleanup:
+  args:     1960
+  input:
+  output:   Metal Rat
+- setup:
+  cleanup:
+  args:     1961
+  input:
+  output:   Metal Ox
+- setup:
+  cleanup:
+  args:     1962
+  input:
+  output:   Water Tiger
+- setup:
+  cleanup:
+  args:     1963
+  input:
+  output:   Water Rabbit
+- setup:
+  cleanup:
+  args:     1964
+  input:
+  output:   Wood Dragon
+- setup:
+  cleanup:
+  args:     1965
+  input:
+  output:   Wood Snake
+- setup:
+  cleanup:
+  args:     1966
+  input:
+  output:   Fire Horse
+- setup:
+  cleanup:
+  args:     1967
+  input:
+  output:   Fire Goat
+- setup:
+  cleanup:
+  args:     1968
+  input:
+  output:   Earth Monkey
+- setup:
+  cleanup:
+  args:     1969
+  input:
+  output:   Earth Rooster
+- setup:
+  cleanup:
+  args:     1970
+  input:
+  output:   Metal Dog
+- setup:
+  cleanup:
+  args:     1971
+  input:
+  output:   Metal Pig
+- setup: