diff options
| author | Asher Harvey-Smith <asherharveysmith@gmail.com> | 2024-05-09 11:24:11 +0100 |
|---|---|---|
| committer | Asher Harvey-Smith <asherharveysmith@gmail.com> | 2024-05-09 11:24:11 +0100 |
| commit | fd80e5637b9272082a37fb2a272b19e8dc800c20 (patch) | |
| tree | 14008f93d662318869deeb6e7891ccead4aed07e | |
| parent | f76f7d7cc810df3136f5e1d72486588433298fa2 (diff) | |
| download | perlweeklychallenge-club-fd80e5637b9272082a37fb2a272b19e8dc800c20.tar.gz perlweeklychallenge-club-fd80e5637b9272082a37fb2a272b19e8dc800c20.tar.bz2 perlweeklychallenge-club-fd80e5637b9272082a37fb2a272b19e8dc800c20.zip | |
better hy
| -rw-r--r-- | challenge-268/asherbhs/hy/ch-2.hy | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/challenge-268/asherbhs/hy/ch-2.hy b/challenge-268/asherbhs/hy/ch-2.hy index 6cd2a29218..74f305be52 100644 --- a/challenge-268/asherbhs/hy/ch-2.hy +++ b/challenge-268/asherbhs/hy/ch-2.hy @@ -3,10 +3,14 @@ itertools * ) -(defn number-game [ints] (lfor - #(x y) (batched (sorted ints) 2) - z #(y x) - z +(require hyrule *) + +(defn number-game [ints] (as-> ints it + (sorted it) + (batched it 2) + (map reversed it) + (chain.from-iterable it) + (list it) )) (pprint (number-game [2 5 3 4])) |