diff options
| author | Abigail <abigail@abigail.be> | 2021-08-25 18:46:25 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-08-25 22:01:15 +0200 |
| commit | 2101433ca05f3a8a59901ae8342b96f06ae5a2bc (patch) | |
| tree | feb4173bb1c9ea3c48aa926b38fe52405f8b6c7d /challenge-127/abigail/awk | |
| parent | cb7cd6683ee360654a262da4bab492db703c7e1a (diff) | |
| download | perlweeklychallenge-club-2101433ca05f3a8a59901ae8342b96f06ae5a2bc.tar.gz perlweeklychallenge-club-2101433ca05f3a8a59901ae8342b96f06ae5a2bc.tar.bz2 perlweeklychallenge-club-2101433ca05f3a8a59901ae8342b96f06ae5a2bc.zip | |
Solutions in 8 languages for week 127, part 1
Diffstat (limited to 'challenge-127/abigail/awk')
| -rw-r--r-- | challenge-127/abigail/awk/ch-1.awk | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/challenge-127/abigail/awk/ch-1.awk b/challenge-127/abigail/awk/ch-1.awk new file mode 100644 index 0000000000..6f16c38d63 --- /dev/null +++ b/challenge-127/abigail/awk/ch-1.awk @@ -0,0 +1,23 @@ +#!/usr/bin/awk + +# +# See ../README.md +# + +# +# Run as: awk -f ch-1.awk < input-file +# + +{ + delete seen + for (i = 1; i <= NF; i ++) { + seen [0 + $i] ++ + } + for (i in seen) { + if (seen [i] > 1) { + print 0 + next + } + } + print 1 +} |