From ec50395cb0c82a2b5a889d1ce4aa51cf7852b467 Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Sun, 13 Feb 2022 19:48:21 +0100 Subject: [PATCH] networks: Add a copy of lists-transpose. I will remove this copy when I will have migrated networks to Typed Racket. --- networks.rkt | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/networks.rkt b/networks.rkt index beaac66..ab0d98c 100644 --- a/networks.rkt +++ b/networks.rkt @@ -951,6 +951,14 @@ ;;; Constructing functions and networks ;;; =================================== +;;; TODO 2022-02-13: Remove when this module is completely migrated to +;;; Typed Racket. +;;; +;;; Typed Racket cannot generate the contract from the type of +;;; lists-transpose in utils. This is a copy of lists-transpose. +(define (lists-transpose lists) + (sequence->list (in-values-sequence (apply in-parallel lists)))) + ;;; Given a table like the one produced by tabulate-network, ;;; constructs a Boolean network having this behaviour. If headers is ;;; #t, considers that the first element of the list are the headers