DAJ Challenge 166

6 files changed, 39264 insertions, 0 deletions

diff --git a/challenge-166/dave-jacoby/perl/bar b/challenge-166/dave-jacoby/perl/bar
new file mode 100644
index 0000000000..e69de29bb2
--- /dev/null
+++ b/challenge-166/dave-jacoby/perl/bar
diff --git a/challenge-166/dave-jacoby/perl/blee b/challenge-166/dave-jacoby/perl/blee
new file mode 100644
index 0000000000..e69de29bb2
--- /dev/null
+++ b/challenge-166/dave-jacoby/perl/blee
diff --git a/challenge-166/dave-jacoby/perl/ch-1.pl b/challenge-166/dave-jacoby/perl/ch-1.pl
new file mode 100644
index 0000000000..e47ea135d0
--- /dev/null
+++ b/challenge-166/dave-jacoby/perl/ch-1.pl
@@ -0,0 +1,52 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use experimental qw{ say postderef signatures state };
+
+use Carp;
+use List::Compare;
+use List::Util qw{ first };
+
+my @words   = get_words();
+my @letters = qw{ a b c d e f o l i s t };
+my @banned  = bad_letters(@letters);
+my %banned  = map { $_ => 1 } @banned;
+my %mapping = (
+    i => '1',
+    l => '1',
+    o => '0',
+    s => '5',
+    t => '7',
+);
+map { $mapping{$_} = $_ } 'a' .. 'f';
+
+# @words = qw{ silo solo soda odd };
+
+OUTER: for my $word ( sort { length $a <=> length $b } @words ) {
+    my $hax0r;
+    for my $l ( split //, $word ) {
+        my $m = $mapping{$l};
+        $hax0r .= defined $m ? $m : $l;
+        next OUTER if $banned{$l};
+    }
+    say qq{ +  $word\n\t0x$hax0r };
+}
+
+sub get_words {
+    my $dictionary = './dictionary.txt';
+    if ( -f $dictionary && open my $fh, '<', $dictionary ) {
+        my @words =
+            grep { length $_ < 9 && length $_ > 1 }
+            map { chomp; lc $_ } <$fh>;
+        return @words;
+    }
+    croak 'No dictioary file';
+}
+
+sub bad_letters( @letters ) {
+    my @alpha  = 'a' .. 'z';
+    my $lc     = List::Compare->new( \@letters, \@alpha );
+    my @banned = $lc->get_complement();
+    return @banned;
+}
diff --git a/challenge-166/dave-jacoby/perl/ch-2.pl b/challenge-166/dave-jacoby/perl/ch-2.pl
new file mode 100644
index 0000000000..0d9d3eb56b
--- /dev/null
+++ b/challenge-166/dave-jacoby/perl/ch-2.pl
@@ -0,0 +1,40 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use experimental qw{ say postderef signatures state };
+
+use List::Util qw{ first };
+
+my @dirs = qw{ dir_a dir_b dir_c };
+@dirs = sort @ARGV if @ARGV;
+my $maxcol = 0;
+
+my %files;
+for my $dir (@dirs) {
+    $maxcol = length $dir if length $dir > $maxcol;
+    next unless -d $dir;
+    my @nodes = glob "$dir/*";
+    for my $n (@nodes) {
+        my ($node) = reverse split m{/}, $n;
+        $node .= '/' if -d $n;
+        $files{$node}{$dir} = 1;
+        $maxcol = length $node if length $node > $maxcol;
+    }
+}
+
+say show_row( $maxcol, @dirs );
+say show_row( $maxcol, map { '-' x $maxcol } @dirs );
+for my $file ( sort keys %files ) {
+    say show_row( $maxcol,
+        map { defined $files{$file}{$_} ? $file : '' } @dirs );
+}
+
+sub show_row ( $maxcol, @row ) {
+    return join ' | ', map { pad( $_, $maxcol ) } @row;
+}
+
+sub pad ( $word, $maxcol ) {
+    my $pad = ' ' x ( $maxcol - length $word );
+    return join '', $word, $pad;
+}
diff --git a/challenge-166/dave-jacoby/perl/dictionary.txt b/challenge-166/dave-jacoby/perl/dictionary.txt
new file mode 100644
index 0000000000..1f915f2975
--- /dev/null
+++ b/challenge-166/dave-jacoby/perl/dictionary.txt
@@ -0,0 +1,39172 @@
+a
+aardvark
+aback
+abacus
+abacuses
+abandon
+abandoned
+abandoning
+abandonment
+abandons
+abate
+abated
+abates
+abating
+abbey
+abbeys
+abbot
+abbots
+abbreviate
+abbreviated
+abbreviates
+abbreviating
+abbreviation
+abbreviations
+abdicate
+abdicated
+abdicates
+abdicating
+abdication
+abdications
+abdomen
+abdomens
+abdominal
+abduct
+abducted
+abducting
+abducts
+aberration
+aberrations
+abet
+abets
+abetted
+abetting
+abhor
+abhorred
+abhorrence
+abhorrent
+abhorring
+abhors
+abide
+abides
+abiding
+abilities
+ability
+abject
+ablaze
+able
+abler
+ablest
+ably
+abnormal
+abnormalities
+abnormality
+abnormally
+aboard
+abode
+abodes
+abolish
+abolished
+abolishes
+abolishing
+abolition
+abominable
+abomination
+aboriginal
+aborigine
+aborigines
+abort
+aborted
+aborting
+abortion
+abortions
+abortive
+aborts
+abound
+abounded
+abounding
+abounds
+about
+above
+aboveboard
+abrasive
+abrasives
+abreast
+abridge
+abridged
+abridges
+abridging
+abroad
+abrupt
+abrupter
+abruptest
+abruptly
+abscess
+abscessed
+abscesses
+abscessing
+abscond
+absconded
+absconding
+absconds
+absence
+absences
+absent
+absented
+absentee
+absentees
+absenting
+absents
+absolute
+absolutely
+absolutes
+absolutest
+absolve
+absolved
+absolves
+absolving
+absorb
+absorbed
+absorbent
+absorbents
+absorbing
+absorbs
+absorption
+abstain
+abstained
+abstaining
+abstains
+abstention
+abstentions
+abstinence
+abstract
+abstracted
+abstracting
+abstraction
+abstractions
+abstracts
+abstruse
+absurd
+absurder
+absurdest
+absurdities
+absurdity
+absurdly
+abundance
+abundances
+abundant
+abundantly
+abuse
+abused
+abuser
+abusers
+abuses
+abusing
+abusive
+abysmal
+abyss
+abysses
+academic
+academically
+academics
+academies
+academy
+accede
+acceded
+accedes
+acceding
+accelerate
+accelerated
+accelerates
+accelerating
+acceleration
+accelerations
+accelerator
+accelerators
+accent
+accented
+accenting
+accents
+accentuate
+accentuated
+accentuates
+accentuating
+accept
+acceptability
+acceptable
+acceptably
+acceptance
+acceptances
+accepted
+accepting
+accepts
+access
+accessed
+accesses
+accessibility
+accessible
+accessing
+accessories
+accessory
+accident
+accidental
+accidentally
+accidentals
+accidents
+acclaim
+acclaimed
+acclaiming
+acclaims
+acclimate
+acclimated
+acclimates
+acclimating
+acclimatize
+acclimatized
+acclimatizes
+acclimatizing
+accolade
+accolades
+accommodate
+accommodated
+accommodates
+accommodating
+accommodation
+accommodations
+accompanied
+accompanies
+accompaniment
+accompaniments
+accompanist
+accompanists
+accompany
+accompanying
+accomplice
+accomplices
+accomplish
+accomplished
+accomplishes
+accomplishing
+accomplishment
+accomplishments
+accord
+accordance
+accorded
+according
+accordingly
+accordion
+accordions
+accords
+accost
+accosted
+accosting
+accosts
+account
+accountability
+accountable
+accountancy
+accountant
+accountants
+accounted
+accounting
+accounts
+accredit
+accredited
+accrediting
+accredits
+accrue
+accrued
+accrues
+accruing
+accumulate
+accumulated
+accumulates
+accumulating
+accumulation
+accumulations
+accuracy
+accurate
+accurately
+accusation
+accusations
+accuse
+accused
+accuser
+accusers
+accuses
+accusing
+accustom
+accustomed
+accustoming
+accustoms
+ace
+aced
+aces
+ache
+ached
+aches
+achievable
+achieve
+achieved
+achievement
+achievements
+achieves
+achieving
+aching
+acid
+acidity
+acids
+acing
+acknowledge
+acknowledged
+acknowledges
+acknowledging
+acknowledgment
+acknowledgments
+acne
+acorn
+acorns
+acoustic
+acoustics
+acquaint
+acquaintance
+acquaintances
+acquainted
+acquainting
+acquaints
+acquiesce
+acquiesced
+acquiescence
+acquiesces
+acquiescing
+acquire
+acquired
+acquires
+acquiring
+acquisition
+acquisitions
+acquit
+acquits
+acquittal
+acquittals
+acquitted
+acquitting
+acre
+acreage
+acreages
+acres
+acrid
+acrider
+acridest
+acrimonious
+acrimony
+acrobat
+acrobatic
+acrobatics
+acrobats
+acronym
+acronyms
+across
+acrylic
+acrylics
+act
+acted
+acting
+action
+actions
+activate
+activated
+activates
+activating
+active
+actively
+actives
+activist
+activists
+activities
+activity
+actor
+actors
+actress
+actresses
+acts
+actual
+actualities
+actuality
+actually
+actuary
+acumen
+acupuncture
+acute
+acutely
+acuter
+acutes
+acutest
+ad
+adage
+adages
+adamant
+adapt
+adaptable
+adaptation
+adaptations
+adapted
+adapter
+adapting
+adaptive
+adapts
+add
+added
+addendum
+addict
+addicted
+addicting
+addiction
+addictions
+addictive
+addicts
+adding
+addition
+additional
+additionally
+additions
+additive
+additives
+address
+addressed
+addressee
+addressees
+addresses
+addressing
+adds
+adept
+adepts
+adequate
+adequately
+adhere
+adhered
+adherence
+adherent
+adherents
+adheres
+adhering
+adhesion
+adhesive
+adhesives
+adjacent
+adjective
+adjectives
+adjoin
+adjoined
+adjoining
+adjoins
+adjourn
+adjourned
+adjourning
+adjournment
+adjournments
+adjourns
+adjunct
+adjuncts
+adjust
+adjustable
+adjusted
+adjusting
+adjustment
+adjustments
+adjusts
+administer
+administered
+administering
+administers
+administration
+administrations
+administrative
+administrator
+administrators
+admirable
+admirably
+admiral
+admirals
+admiration
+admire
+admired
+admirer
+admirers
+admires
+admiring
+admissible
+admission
+admissions
+admit
+admits
+admittance
+admitted
+admittedly
+admitting
+admonish
+admonished
+admonishes
+admonishing
+admonition
+admonitions
+ado
+adobe
+adobes
+adolescence
+adolescences
+adolescent
+adolescents
+adopt
+adopted
+adopting
+adoption
+adoptions
+adopts
+adorable
+adoration
+adore
+adored
+adores
+adoring
+adorn
+adorned
+adorning
+adornment
+adornments
+adorns
+adrift
+adroit
+adroitly
+ads
+adulation
+adult
+adulterate
+adulterated
+adulterates
+adulterating
+adulteration
+adulteries
+adultery
+adulthood
+adults
+advance
+advanced
+advancement
+advancements
+advances
+advancing
+advantage
+advantaged
+advantageous
+advantages
+advantaging
+advent
+adventure
+adventured
+adventurer
+adventurers
+adventures
+adventuring
+adventurous
+adverb
+adverbial
+adverbials
+adverbs
+adversaries
+adversary
+adverse
+adversely
+adverser
+adversest
+adversities
+adversity
+advert
+advertise
+advertised
+advertisement
+advertisements
+advertiser
+advertisers
+advertises
+advertising
+adverts
+advice
+advisable
+advise
+advised
+adviser
+advisers
+advises
+advising
+advisories
+advisory
+advocate
+advocated
+advocates
+advocating
+aerial
+aerials
+aerodynamic
+aerodynamics
+aerosol
+aerosols
+aerospace
+aesthetic
+aesthetically
+afar
+affable
+affably
+affair
+affairs
+affect
+affectation
+affectations
+affected
+affecting
+affection
+affectionate
+affectionately
+affections
+affects
+affidavit
+affidavits
+affiliate
+affiliated
+affiliates
+affiliating
+affiliation
+affiliations
+affinities
+affinity
+affirm
+affirmation
+affirmations
+affirmative
+affirmatives
+affirmed
+affirming
+affirms
+affix
+affixed
+affixes
+affixing
+afflict
+afflicted
+afflicting
+affliction
+afflictions
+afflicts
+affluence
+affluent
+afford
+affordable
+afforded
+affording
+affords
+affront
+affronted
+affronting
+affronts
+afield
+aflame
+afloat
+afoot
+aforementioned
+aforesaid
+afraid
+afresh
+after
+aftereffect
+aftereffects
+afterlife
+afterlives
+aftermath
+aftermaths
+afternoon
+afternoons
+afterthought
+afterthoughts
+afterward
+afterwards
+again
+against
+age
+aged
+agencies
+agency
+agenda
+agendas
+agent
+agents
+ages
+aggravate
+aggravated
+aggravates
+aggravating
+aggravation
+aggravations
+aggregate
+aggregated
+aggregates
+aggregating
+aggression
+aggressive
+aggressively
+aggressiveness
+aggressor
+aggressors
+aghast
+agile
+agiler
+agilest
+agility
+aging
+agitate
+agitated
+agitates
+agitating
+agitation
+agitations
+agitator
+agitators
+aglow
+agnostic
+agnosticism
+agnostics
+ago
+agonies
+agonize
+agonized
+agonizes
+agonizing
+agony
+agree
+agreeable
+agreeably
+agreed
+agreeing
+agreement
+agreements
+agrees
+agricultural
+agriculture
+aground
+ah
+ahead
+ahoy
+aid
+aide
+aided
+aides
+aiding
+aids
+ail
+ailed
+ailing
+ailment
+ailments
+ails
+aim
+aimed
+aiming
+aimless
+aimlessly
+aims
+air
+airborne
+aircraft
+aired
+airfield
+airfields
+airier
+airiest
+airing
+airline
+airliner
+airliners
+airlines
+airmail
+airmailed
+airmailing
+airmails
+airplane
+airplanes
+airport
+airports
+airs
+airstrip
+airstrips
+airtight
+airy
+aisle
+aisles
+ajar
+akin
+alarm
+alarmed
+alarming
+alarmingly
+alarmist
+alarmists
+alarms
+alas
+albeit
+albino
+albinos
+album
+albums
+alcohol
+alcoholic
+alcoholics
+alcoholism
+alcohols
+alcove
+alcoves
+ale
+alert
+alerted
+alerting
+alerts
+ales
+alga
+algae
+algebra
+algebraic
+algorithm
+algorithms
+alias
+aliased
+aliases
+aliasing
+alibi
+alibied
+alibiing
+alibis
+alien
+alienate
+alienated
+alienates
+alienating
+alienation
+aliened
+aliening
+aliens
+alight
+alighted
+alighting
+alights
+align
+aligned
+aligning
+alignment
+alignments
+aligns
+alike
+alimony
+alive
+alkali
+alkalies
+alkaline
+all
+allay
+allayed
+allaying
+allays
+allegation
+allegations
+allege
+alleged
+allegedly
+alleges
+allegiance
+allegiances
+alleging
+allegorical
+allegories
+allegory
+allergic
+allergies
+allergy
+alleviate
+alleviated
+alleviates
+alleviating
+alley
+alleys
+alliance
+alliances
+allied
+allies
+alligator
+alligators
+allocate
+allocated
+allocates
+allocating
+allocation
+allocations
+allot
+allotment
+allotments
+allots
+allotted
+allotting
+allow
+allowable
+allowance
+allowances
+allowed
+allowing
+allows
+alloy
+alloyed
+alloying
+alloys
+allude
+alluded
+alludes
+alluding
+allure
+allured
+allures
+alluring
+allusion
+allusions
+ally
+allying
+almanac
+almanacs
+almighty
+almond
+almonds
+almost
+alms
+aloft
+alone
+along
+alongside
+aloof
+aloud
+alpha
+alphabet
+alphabetic
+alphabetical
+alphabetically
+alphabets
+alphanumeric
+already
+also
+altar
+altars
+alter
+alterable
+alteration
+alterations
+altered
+altering
+alternate
+alternated
+alternately
+alternates
+alternating
+alternation
+alternative
+alternatively
+alternatives
+alternator
+alters
+although
+altitude
+altitudes
+alto
+altogether
+altos
+altruism
+altruistic
+aluminum
+always
+am
+amalgamate
+amalgamated
+amalgamates
+amalgamating
+amalgamation
+amalgamations
+amass
+amassed
+amasses
+amassing
+amateur
+amateurish
+amateurs
+amaze
+amazed
+amazement
+amazes
+amazing
+amazingly
+ambassador
+ambassadors
+amber
+ambiance
+ambiances
+ambidextrous
+ambient
+ambiguities
+ambiguity
+ambiguous
+ambiguously
+ambition
+ambitions
+ambitious
+ambitiously
+ambivalence
+ambivalent
+amble
+ambled
+ambles
+ambling
+ambulance
+ambulances
+ambush
+ambushed
+ambushes
+ambushing
+amen
+amenable
+amend
+amended
+amending
+amendment
+amendments
+amends
+amenities
+amenity
+amethyst
+amethysts
+amiable
+amiably
+amicable
+amicably
+amid
+amiss
+ammonia
+ammunition
+amnesia
+amnestied
+amnesties
+amnesty
+amnestying
+amoeba
+amoebae
+amoebas
+amok
+among
+amoral
+amorous
+amorphous
+amount
+amounted
+amounting
+amounts
+amp
+ampere
+amperes
+ampersand
+ampersands
+amphetamine
+amphetamines
+amphibian
+amphibians
+amphibious
+amphitheater
+amphitheaters
+ample
+ampler
+amplest
+amplification
+amplifications
+amplified
+amplifier
+amplifiers
+amplifies
+amplify
+amplifying
+amplitude
+amply
+amps
+amputate
+amputated
+amputates
+amputating
+amputation
+amputations
+amulet
+amulets
+amuse
+amused
+amusement
+amusements
+amuses
+amusing
+amusingly
+an
+anachronism
+anachronisms
+anagram
+anal
+analgesic
+analgesics
+analog
+analogies
+analogous
+analogue
+analogy
+analyses
+analysis
+analyst
+analysts
+analytic
+analyze
+analyzed
+analyzer
+analyzes
+analyzing
+anarchic
+anarchism
+anarchist
+anarchists
+anarchy
+anathema
+anatomical
+anatomies
+anatomy
+ancestor
+ancestors
+ancestral
+ancestries
+ancestry
+anchor
+anchorage
+anchorages
+anchored
+anchoring
+anchors
+anchovies
+anchovy
+ancient
+ancienter
+ancientest
+ancients
+and
+android
+androids
+anecdote
+anecdotes
+anemia
+anemic
+anesthesia
+anesthetic
+anesthetics
+anew
+angel
+angelic
+angels
+anger
+angered
+angering
+angers
+angle
+angled
+angler
+anglers
+angles
+angling
+angrier
+angriest
+angrily
+angry
+angst
+anguish
+anguished
+anguishes
+anguishing
+angular
+animal
+animals
+animate
+animated
+animates
+animating
+animation
+animations
+animosities
+animosity
+ankle
+ankles
+annals
+annex
+annexation
+annexations
+annexed
+annexes
+annexing
+annihilate
+annihilated
+annihilates
+annihilating
+annihilation
+anniversaries
+anniversary
+annotate
+annotated
+annotates
+annotating
+annotation
+annotations
+announce
+announced
+announcement
+announcements
+announcer
+announcers
+announces
+announcing
+annoy
+annoyance
+annoyances
+annoyed
+annoying
+annoyingly
+annoys
+annual
+annually
+annuals
+annuities
+annuity
+annul
+annulled
+annulling
+annulment
+annulments
+annuls
+anoint
+anointed
+anointing
+anoints
+anomalies
+anomalous
+anomaly
+anon
+anonymity
+anonymous
+anonymously
+anorak
+anoraks
+another
+answer
+answerable
+answered
+answering
+answers
+ant
+antagonism
+antagonisms
+antagonist
+antagonistic
+antagonists
+antagonize
+antagonized
+antagonizes
+antagonizing
+anteater
+anteaters
+antelope
+antelopes
+antenna
+antennae
+antennas
+anthem
+anthems
+anthill
+anthills
+anthologies
+anthology
+anthrax
+anthropological
+anthropologist
+anthropologists
+anthropology
+antibiotic
+antibiotics
+antibodies
+antibody
+antic
+anticipate
+anticipated
+anticipates
+anticipating
+anticipation
+anticipations
+anticlimax
+anticlimaxes
+antics
+antidote
+antidotes
+antifreeze
+antipathies
+antipathy
+antiquate
+antiquated
+antiquates
+antiquating
+antique
+antiqued
+antiques
+antiquing
+antiquities
+antiquity
+antiseptic
+antiseptics
+antisocial
+antitheses
+antithesis
+antler
+antlers
+antonym
+antonyms
+ants
+anus
+anuses
+anvil
+anvils
+anxieties
+anxiety
+anxious
+anxiously
+any
+anybodies
+anybody
+anyhow
+anyone
+anyplace
+anything
+anythings
+anyway
+anywhere
+aorta
+aortas
+apart
+apartheid
+apartment
+apartments
+apathetic
+apathy
+ape
+aped
+aperture
+apertures
+apes
+apex
+apexes
+aphorism
+aphorisms
+apiece
+aping
+aplomb
+apocryphal
+apologetic
+apologetically
+apologies
+apologize
+apologized
+apologizes
+apologizing
+apology
+apostle
+apostles
+apostrophe
+apostrophes
+appall
+appalled
+appalling
+appallingly
+appalls
+apparatus
+apparatuses
+apparel
+appareled
+appareling
+apparels
+apparent
+apparently
+apparition
+apparitions
+appeal
+appealed
+appealing
+appeals
+appear
+appearance
+appearances
+appeared
+appearing
+appears
+appease
+appeased
+appeasement
+appeasements
+appeases
+appeasing
+append
+appendage
+appendages
+appended
+appendices
+appendicitis
+appending
+appendix
+appendixes
+appends
+appetite
+appetites
+appetizer
+appetizers
+appetizing
+applaud
+applauded
+applauding
+applauds
+applause
+apple
+apples
+appliance
+appliances
+applicability
+applicable
+applicant
+applicants
+application
+applications
+applicator
+applicators
+applied
+applies
+apply
+applying
+appoint
+appointed
+appointee
+appointees
+appointing
+appointment
+appointments
+appoints
+apposite
+appraisal
+appraisals
+appraise
+appraised
+appraises
+appraising
+appreciable
+appreciate
+appreciated
+appreciates
+appreciating
+appreciation
+appreciations
+appreciative
+apprehend
+apprehended
+apprehending
+apprehends
+apprehension
+apprehensions
+apprehensive
+apprentice
+apprenticed
+apprentices
+apprenticeship
+apprenticeships
+apprenticing
+approach
+approachable
+approached
+approaches
+approaching
+appropriate
+appropriated
+appropriately
+appropriates
+appropriating
+appropriation
+appropriations
+approval
+approvals
+approve
+approved
+approves
+approving
+approximate
+approximated
+approximately
+approximates
+approximating
+approximation
+approximations
+apricot
+apricots
+apron
+aprons
+apt
+apter
+aptest
+aptitude
+aptitudes
+aptly
+aquamarine