From fd80e5637b9272082a37fb2a272b19e8dc800c20 Mon Sep 17 00:00:00 2001 From: Asher Harvey-Smith Date: Thu, 9 May 2024 11:24:11 +0100 Subject: better hy --- challenge-268/asherbhs/hy/ch-2.hy | 12 ++++++++---- 1 file 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])) -- cgit