======pick-comb.scm====== <code shell>#!/usr/bin/env racket #lang racket/base </code> ====== pick-combination ====== (3 body) Naprogramujte proceduru pick-combination, která bere jako argumenty dva seznamy: seznam list a číselný seznam indexes – čísla v něm představují pozice. Procedura vrací seznam prvků ze seznamu list, které odpovídají pozicím číselném seznamu. <code scheme> (define (pick-combination l indexes) (map (lambda (i) (list-ref l (- i 1))) indexes)) </code> Příklady použití: <code scheme> (pick-combination '(a b c) '(1 1 3 1)) ;⇒ (a a c a) (pick-combination '(a b c) '(1 3 2)) ;⇒ (a c b) ; vim: syntax=racket </code>