#lang racket
(require rackunit)
(require rackunit/text-ui)

  Искаме да   матрица

(define tests
  (test-suite "transpose tests"

    (test-case "" (check-equal? (transpose '((1 2 3) (4 5 6) (7 8 9))) '((1 4 7) (2 5 8) (3 6 9))))
  )
)

(run-tests tests 'verbose)


#lang racket
(require rackunit)
(require rackunit/text-ui)

  Искаме да   матрица

(define tests
  (test-suite "transpose tests"

    (test-case "" (check-equal? (transpose '((1 2 3) (4 5 6) (7 8 9))) '((1 4 7) (2 5 8) (3 6 9))))
  )
)

(run-tests tests 'verbose)

