@anonymous/MagnificentDeficientNauplius
Scheme

No description

(define (repeat n elem)
    (if (= n 0)
        '()
        (cons elem (repeat (- n 1) elem))))

(define (fill-list lst len elem)
    (if (>= (length lst) len)
        lst
        (append lst (repeat (- len (length lst)) elem))))
        
(define (make-rectangle data with)
    (map (lambda (row)
            (fill-list row (apply max (map length data)) with))
        data))
        
(define (transpose data)
    (apply map list data))
    
(define (solution data)
    (transpose (make-rectangle data '())))
    
(solution '((a b c) (1) (x y z)))
BiwaScheme Interpreter version 0.6.4 Copyright (C) 2007-2014 Yutaka HARA and the BiwaScheme team