Warning: Declaration of action_plugin_subjectindex_indexer::register(&$controller) should be compatible with DokuWiki_Action_Plugin::register(Doku_Event_Handler $controller) in /data/web/virtuals/28604/virtual/www/subdom/bo/lib/plugins/subjectindex/action/indexer.php on line 15
Warning: Declaration of action_plugin_mathjax_enable::register(Doku_Event_Handler &$controller) should be compatible with DokuWiki_Action_Plugin::register(Doku_Event_Handler $controller) in /data/web/virtuals/28604/virtual/www/subdom/bo/lib/plugins/mathjax/action/enable.php on line 62
Warning: Declaration of action_plugin_googleanalytics::register(&$controller) should be compatible with DokuWiki_Action_Plugin::register(Doku_Event_Handler $controller) in /data/web/virtuals/28604/virtual/www/subdom/bo/lib/plugins/googleanalytics/action.php on line 40
Warning: Declaration of action_plugin_folded::register(&$controller) should be compatible with DokuWiki_Action_Plugin::register(Doku_Event_Handler $controller) in /data/web/virtuals/28604/virtual/www/subdom/bo/lib/plugins/folded/action.php on line 40
Warning: Declaration of action_plugin_hidden::register(&$controller) should be compatible with DokuWiki_Action_Plugin::register(Doku_Event_Handler $controller) in /data/web/virtuals/28604/virtual/www/subdom/bo/lib/plugins/hidden/action.php on line 28
Warning: Declaration of action_plugin_include::register(&$controller) should be compatible with DokuWiki_Action_Plugin::register(Doku_Event_Handler $controller) in /data/web/virtuals/28604/virtual/www/subdom/bo/lib/plugins/include/action.php on line 354
Warning: Declaration of action_plugin_tag::register(&$contr) should be compatible with DokuWiki_Action_Plugin::register(Doku_Event_Handler $controller) in /data/web/virtuals/28604/virtual/www/subdom/bo/lib/plugins/tag/action.php on line 175
Warning: Cannot modify header information - headers already sent by (output started at /data/web/virtuals/28604/virtual/www/subdom/bo/lib/plugins/subjectindex/action/indexer.php:15) in /data/web/virtuals/28604/virtual/www/subdom/bo/inc/auth.php on line 532
Warning: preg_replace(): The /e modifier is no longer supported, use preg_replace_callback instead in /data/web/virtuals/28604/virtual/www/subdom/bo/inc/auth.php on line 818
Warning: Cannot modify header information - headers already sent by (output started at /data/web/virtuals/28604/virtual/www/subdom/bo/lib/plugins/subjectindex/action/indexer.php:15) in /data/web/virtuals/28604/virtual/www/subdom/bo/inc/actions.php on line 656
Warning: Cannot modify header information - headers already sent by (output started at /data/web/virtuals/28604/virtual/www/subdom/bo/lib/plugins/subjectindex/action/indexer.php:15) in /data/web/virtuals/28604/virtual/www/subdom/bo/inc/actions.php on line 656
Warning: Cannot modify header information - headers already sent by (output started at /data/web/virtuals/28604/virtual/www/subdom/bo/lib/plugins/subjectindex/action/indexer.php:15) in /data/web/virtuals/28604/virtual/www/subdom/bo/inc/actions.php on line 656
======ypp1du.scm======
(interlace () ’x) ;⇒ ()
(interlace (list 1) ’x) ;⇒ (1)
(interlace (list 1 2 3) ’x) ;⇒ (1 x 2 x 3)
(interlace (list 1 2 3) ()) ;⇒ (1 () 2 () 3)
======= 2. interlace? =======
(3 body)
Naprogramujte predikát interlaced?, který vrací #t, pokud je jeho argument seznam liché délky (nebo je prázdný) a prvky na sudých pozicích jsou
si rovny. Predikát vlastně zjištuje, jestli seznam mohl vzniknout použitím
procedury interlace z předchozího příkladu.
Příklady použití:
(interlaced? ()) ;⇒ #t
(interlaced? (list 1)) ;⇒ #t
(interlaced? (interlace (list 1 2 3) ’x)) ;⇒ #t
(interlaced? ’(1 x 2 x)) ;⇒ #f
(interlaced? ’(x 1 x 2 x)) ;⇒ #f
(interlaced? ’(x x x)) ;⇒ #t
======= 3. collate =======
(6 bodů)
Naprogramujte proceduru collate, která bere jako argument seznam list
a vrací seznam párů ( elem . count ), kde elem je prvek ze seznamu
list , count je počet výskytů elem v seznamu list . Páry jsou uspořádány sestupně podle count . Pro setřídění můžete použít sort
Příklady použití:
(collate ()) ;⇒ ()
(collate ’(x)) ;⇒ ((x . 1))
(collate (interlace (list 1 2 3) ’x)) ;⇒ ((x . 2) (1 . 1) (2 . 1) (3 . 1))
(collate (1 1 2 1 2)) ;⇒ ((1 . 3) (2 . 2))
====== 4. 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.
Příklady použití:
(pick-combination ’(a b c) (1 1 3 1)) ;⇒ (a a c a)
(pick-combination ’(a b c) (1 3 2)) ;⇒ (a c b)
====== 5. pairwise-testp ======
(7 bodů)
Naprogramujte predikát pairwise-test?, která bere dva argumenty: seznam list a predikát pred? dvou argumentů.
Predikát pairwise-good?, který vrací #t, právě když každé dva sousední prvky v seznamu list splňují predikát pred? .
Řešte pomocí rekurze.
Příklady použití:
(pairwise-test? ’(1 2 3) (lambda(a b) (= a (- b 1)))) ;⇒ #t
(pairwise-test? ’(1 3 4) <=) ;⇒ #t
(pairwise-test? ’(1 3 4) (lambda(a b) (= a (- b 1)))) ;⇒ #f
====== 6. pairwise-testp akumulace======
(6 bodů)
Naprogramujte predikát pairwise-test? z předchozího příkladu pomocí akumulace.
======= 7. redblack-treep =======
(15 bodů)
Uvažujme následující reprezentaci stromů: každý uzel je reprezentován
jako struktura ( tag ( left right )).
tag je pravdivostní hodnota, která reprezentuje barvu (#t je černá„ #f je červená)
a left a right jsou prázdné seznamy a nebo další uzly.
Listy jsou representováný jako ( tag ()).
Naprogramujte predikát redblack-tree?, který zjišťuje, jestli je jeho argument reprezentací červeno-černého stromu. To znamená
* kořen je černý,
* na cestě od kořenu ke každému listu je stejný počet černých uzlů,
* pokud je uzel červený, tak left a right jsou černé.
; vim: syntax=racket