Scheme - procedura vyššího řádu – Funkcionální programování – Fórum – Programujte.com

Máme za úkol vytvořit v programu i nějákou proceduru vyššího řádu.

Známý mi poradil že prý by se daly upravit tyhle selektory co v něm mám nadefinované (dělat nějáký tip-maker), jenže já vůbec nevím kde začít.

(define tip1
  (lambda (x)
    (cons '(1 Vyhra-domacich) (list-ref x 3))))

(define tip0
  (lambda (x)
    (cons '(0 Remiza) (list-ref x 4))))
(define tip2
  (lambda (x)
    (cons '(2 Vyhra-hostu) (list-ref x 5))))

(define tip10
  (lambda (x)
    (cons '(10 Neprohra-domacich) (list-ref x 6))))
(define tip12
  (lambda (x)
    (cons '(12 Neremiza) (list-ref x 7))))

(define tip02
  (lambda (x)
    (cons '(02 Neprohra-hostu) (list-ref x 8))))

z téhle tabulky:

(define fotbal-ang list)

(define nabidka
  (list (fotbal-ang 1 'Liverpool 'Newcastle 1.52 3.70 6.10 1.07 1.21 2.30)
        (fotbal-ang 2 'Manch.Utd. 'Blackburn 1.15 6.50 14.00 1.03 1.06 4.43)
        (fotbal-ang 3 'Arsenal 'Q.P.R. 1.25 5.00 11.00 1.04 1.12 3.43)
        (fotbal-ang 4 'Bolton 'Wolves 2.20 3.10 3.10 1.28 1.28 1.54)
        (fotbal-ang 5 'Chelsea 'AstonVilla 1.28 4.80 9.20 1.01 1.12 3.15)
        (fotbal-ang 6 'Norwich 'Fulham 2.50 3.00 2.75 1.36 1.30 1.43)
        (fotbal-ang 7 'Stoke 'Wigan 1.70 3.30 4.80 1.12 1.25 1.95)
        (fotbal-ang 8 'Swansea 'Tottenham 4.40 3.30 1.75 1.88 1.25 1.14)
        (fotbal-ang 9 'WestBrom. 'Everton 2.60 3.10 2.55 1.41 1.28 1.39)
        (fotbal-ang 10 'Sunderland 'Manch.City 6.20 3.60 1.55 2.27 1.23 1.08)))

Vím že procedury vyšších řádů mají vracet zase procedury, ale vůbec nevím jak ji v tomhle případě vtvořit. Mohl by jste mi někdo rosím pomoci??