kierendavies

import collections
import datetime
import itertools
import logging
import shelve

import requests
import requests.adapters
import tqdm
import urllib3.util.retry

kierendavies

#!/usr/bin/env perl

use strict;
use warnings;

sub find_pair {
    my ($elems, $target) = @_;
    my @sums = map { eval } glob join "+", map "{$_}", map join(",", @$_), $elems, $elems;
    while (my ($i, $s) = each @sums) {
        next unless $s == $target;