From 93d8243b76fc2e42f88923938f5e5d53e826b7ef Mon Sep 17 00:00:00 2001 From: HVukman Date: Sun, 14 Sep 2025 20:59:24 +0200 Subject: Create 338_p2.rkt --- challenge-338/hvukman/racket/338_p2.rkt | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 challenge-338/hvukman/racket/338_p2.rkt diff --git a/challenge-338/hvukman/racket/338_p2.rkt b/challenge-338/hvukman/racket/338_p2.rkt new file mode 100644 index 0000000000..cb1be018c5 --- /dev/null +++ b/challenge-338/hvukman/racket/338_p2.rkt @@ -0,0 +1,29 @@ +#lang racket +(require rackunit) + +(define (max_dist x y) +(apply max + (map (lambda (z) (apply max z)) + (for/list ([i x]) + (for/list ([j (length y)]) + (abs (- i (list-ref y j))) + ) + ) + ) + ) +) + +(max_dist '(4 5 7) '(9 1 3 4)) +(check-equal? 6 (max_dist '(4 5 7) '(9 1 3 4))) + +(max_dist '(2 3 5 4) '(3 2 5 5 8 7)) +(check-equal? 6 (max_dist '(2 3 5 4) '(3 2 5 5 8 7))) + +(max_dist '(2 1 11 3) '(2 5 10 2)) +(check-equal? 9 (max_dist '(2 1 11 3) '(2 5 10 2))) + +(max_dist '(1 2 3) '(3 2 1)) +(check-equal? 2 (max_dist '(1 2 3) '(3 2 1))) + +(max_dist '(1 0 2 3) '(5 0)) +(check-equal? 5 (max_dist '(1 2 3) '(3 2 1))) -- cgit