This commit is contained in:
Ed Langley
2018-08-18 13:26:39 -07:00
parent 19472ab663
commit ca2332cc98

View File

@ -8,10 +8,10 @@ the composition of more primitive operations.
(over (transform-tail (over (slice 1)))) (over (transform-tail (over (slice 1))))
(compress-runs :collector 'combine-matching-lists)) (compress-runs :collector 'combine-matching-lists))
(alexandria:compose (alexandria:compose
(over (data-lens:juxt (over (juxt (element 0)
(data-lens:element 0)
'identity)) 'identity))
(sorted 'char< :key (element 0)))) (sorted 'char<
:key (element 0))))
'("January" "February" "March" "April" '("January" "February" "March" "April"
"May" "June" "July" "August" "May" "June" "July" "August"
"September" "October" "November" "December")) "September" "October" "November" "December"))