From 6679db9aa46609d5357e59555dab89a18f72f503 Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Fri, 18 Feb 2022 16:04:04 +0100 Subject: [PATCH] utils.rkt: Add a comment about an alternative implementation of lists-transpose. --- utils.rkt | 3 +++ 1 file changed, 3 insertions(+) diff --git a/utils.rkt b/utils.rkt index 15b4b4a..16b2c12 100644 --- a/utils.rkt +++ b/utils.rkt @@ -447,6 +447,9 @@ (check-equal? l1 '((1 2) (a b))) (check-equal? l2 '((3) (c))))) ;; https://racket.discourse.group/t/get-to-type-apply-in-parallel-lst/683 + ;; + ;; Same thread: (apply ((curry map) list) lsts), however I don't + ;; feel like typing this right now (2022-02-18). (: lists-transpose (All (a ...) (-> (List (Listof a) ... a) (Listof (List a ... a))))) (define (lists-transpose lists) (sequence->list (in-values-sequence (apply in-parallel lists))))