#!/usr/bin/env perl

use strict;
use warnings;

srand 12345;

for my $i (1 ... 20) {
  my $a = int rand 50;
  my $b = int rand 50;
  my $c = int rand 50;
  if ($i < 2 * 2 * 2) {
    my $x = $i;
    $a = $x % 2; $x = int($x / 2);
    $b = $x % 2; $x = int($x / 2);
    $c = $x % 2;
  }
  my $id = sprintf '%02d', $i;
  open(FH, '>', "data/secret/$id.in");
  print FH "$a $b $c\n";
  close(FH);
}