gen-readme.pl

#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;
use JSON;

my %dtag = (
  easy => '<span style="color: #00af9b;">Easy</span>',
  medium => '<span style="color: #ffb800;">Medium</span>',
  hard => '<span style="color: #ff2d55;">Hard</span>',
);
my %dcount = (
  easy => 0,
  medium => 0,
  hard => 0,
);
my %dtotal = (
  easy => 0,
  medium => 0,
  hard => 0,
);

my %problems;
foreach my $problem (@{from_json(`bash ./fetch-problem-list.bash`)}) {
  $problems{$problem->{no}} = $problem;
  $dtotal{$problem->{difficulty}}++;
}

my @fileinfo;

foreach my $difficulty ('easy', 'medium', 'hard') {
  foreach my $filepath (<code/$difficulty/*>) {
    my $filename = basename($filepath);
    my ($no) = $filename =~ /^(\d+)/;
    my ($ext) = $filename =~ /\.(\w+)$/;
    my ($title, $link, $tc, $sc);

    open my $fd, '<', $filepath or die "Can't open $filepath: $!";
    while (<$fd>) {
      $title = $1 if m"^(?://|#|--) Title: (.*)$";
      $link = $1 if m"^(?://|#|--) Link: (.*)$";
      $tc = $1 if m"^(?://|#|--) Time complexity: (.*)$";
      $sc = $1 if m"^(?://|#|--) Space complexity: (.*)$";
    }
    close $fd;

    my $problem = $problems{$no};
    warn "Difficulty mismatched! ($filename)" if $difficulty ne $problem->{difficulty};
    warn "Title mismatched! ($filename)" if $title ne $problem->{title};
    warn "Link mismatched! ($filename)" if $link ne "https://leetcode.com/problems/$problem->{slug}/";

    push @fileinfo, {
      difficulty => $dtag{$difficulty},
      no => $no // 9999,
      title => $title || undef,
      link => $link || undef,
      filename => $filename,
      filepath => $filepath,
      ext => $ext,
      tc => $tc // 'N/A',
      sc => $sc // 'N/A',
    };

    $dcount{$difficulty}++;
  }
}

print <<EOF;
# leetcode

[![Generate README.md](https://github.com/zetaraku/leetcode/actions/workflows/generate-readme.yaml/badge.svg)](https://github.com/zetaraku/leetcode/actions/workflows/generate-readme.yaml)

My [LeetCode](https://leetcode.com/) submissions

- $dtag{easy}: $dcount{easy} / $dtotal{easy}
- $dtag{medium}: $dcount{medium} / $dtotal{medium}
- $dtag{hard}: $dcount{hard} / $dtotal{hard}

## Index
EOF

my @languages = (
  { name => 'C++', ext => 'cpp' },
  { name => 'SQL', ext => 'sql' },
  { name => 'TypeScript', ext => 'ts' },
);

foreach my $language (@languages) {
  print <<EOF;

### $language->{name}

| No. | Difficulty | Title | Code | Time complexity | Space complexity |
| ---:| ---------- | ----- | ---- | --------------- | ---------------- |
EOF

  foreach (sort { $a->{no} <=> $b->{no} } grep { $_->{ext} eq $language->{ext} } @fileinfo) {
    my $title = defined $_->{link} ? "[$_->{title}]($_->{link})" : "$_->{title}";
    my $code = "[$_->{filename}](./$_->{filepath})";

    print <<LINE;
| $_->{no} | $_->{difficulty} | $title | $code | `$_->{tc}` | `$_->{sc}` |
LINE
  }
}