[SOLVED] CS 115 DrRacket Assignment 5

CS 115 DrRacket Assignment 5
Beginning Student with List Abbreviations

Remember to use defined constants and helper functions where appropriate.

Copyright By Assignmentchef assignmentchef

Follow the full design recipe and the Coding Style document up to and including Section 3.6.2.

define , and , or , not , cond , else , check-expect , check-within , equal? Any type predicate such as number? or boolean?
Any functions on numbers found in Section 2.6 of the Racket documentation
Any functions on characters found in Section 2.11 of the Racket documentation
Any functions on strings found in Section 2.12 of the Racket documentation
The function symbol=?
The list functions and values cons , first , second , third , rest , empty , empty? , and list You must not use boolean=?

All test data for correctness will always meet the stated assumptions for consumed values.

1 ;; A PFD, or prime factor decomposition, is a (listof Nat) 2 ;; Requires: the elements are in ascending order
3 ;; the elements are prime numbers.
!#$%&'()*+,(&-)-(&.+)+/(+(0/%1(.$2
M5+7/6F$-L$+7-0*5D$/GH-5/57+J$2/$2*88$W?+7$8*+7$7E/$H0*4/$L6,7-0+J$2*7E$0/H/7*7*-5B$&-$24 = 23 3 = 2 2 2 3$2*88$T/$0/H0/+/57/F$6+$(list 2 2 2 3)J$65F$42 = 2 3 7$2*88$T/ 0/H0/+/57/F$6+$(list 2 3 7)B$3E/$5?4T/0$$*+$7E/$0/+?87$-L$7E/$X4H7Q$P0-F?,7J$+-$*7+$H0*4/$L6,7-0$F/,-4H-+*7*-5$*+$emptyB$C$H0*4/$5?4T/0$E6+$-58Q$-5/$H0*4/$L6,7-0J$+-$7E/$PV)$-L$6 H0*4/$2*88$T/$6$8*+7$7E67$,-576*5+$7E67$.68?/$-58QB
0*7/$6$L?5,7*-5$pfdB$M7$,-5+?4/+$6$H-+*7*./$*57/D/0$nJ$65F$H0-F?,/+$7E/$PFD$7E67$0/H0/+/57+$nB$V-0$/G64H8/J
> (pfd 12)
(list 2 2 3)
> (pfd 8191) ; a Mersenne prime:
(list 8191)
Y-?$,65$D/5/067/$7E/$+-8?7*-5$8*+7$*5$7E/$,-00/,7$-0F/0$?+*5D$65$6HH0-H0*67/$0/,?0+*-5$-5$567?068$5?4T/0+B$M7$+E-?8F$5-7$T/$5/,/++60Q$7-$+-07B
/#.*0&1$(2#.%&,+#.2&!#$%&'()*+&,%)+$!+-#*#+.&34&5(.,6&*5%.&7-%&*5#-&*+&#.+$&4+7&)+,%&,%-#2.8$M$4*DE7$,68,?867/$7E/$PV)$-L$6$5?4T/0$TQ$F062*5D$6$70//B$C7$/6,E$5-F/J$M$Z5F$7E/$+4688/+7$H0*4/ L6,7-0$-L$7E/$5?4T/0$M[4$,-5+*F/0*5DJ$65F$F*.*F/$*7$-?7#
&-$*7$4?+7$T/$7E67$(pfd 24) (cons 2 (cons 2 (cons 2 (cons 3 empty)))) (list 2 2 2 3)J$6+$F/+*0/FB
&-$*7$4?+7$T/$7E67$(pfd 42) (cons 2 (cons 3 (cons 7 empty))) (list 2 3 7)J$6+$F/+*0/FB
C$L/2$7E*5D+$7-$,-5+*F/0#
1. The base case is strange; what is it?
2. We are not just counting up or down; how are we approaching the base case?
3. Somehow hidden we need to count up to track which prime divisor we are considering.
&?T4*7$Q-?0$+-8?7*-5$*5$7E/$Z8/$a05q1.rktB 7.2#)%*=8*/($;>>6.*/%$#)3
&-4/7*4/+$2E/5$+-07*5DJ$2/$2657$7-$+-07$?+*5D$6$H0-H/07Q$-L$/6,E$.68?/J$*5+7/6F$-L$7E/$.68?/$*7+/8LB$3E/5$2/$E6./$7-$,-5+*F/0$2E67$7-$F-$L-0$.68?/+$L-0$2E*,E$7E/$H0-H/07Q$*+$/U?68B
V-0$/G64H8/J$2/$,-?8F$+-07$6$8*+7$-L$+70*5D+$*5$6+,/5F*5D$-0F/0$TQ$8/5D7EB$3E/5$(list able was I ere I saw Elba)$,-?8F$T/,-4/$(list I I saw ere was Elba able)J$T?7$*7$,-?8F$W?+7$6+$2/88$T/,-4/$(list I I was ere saw able Elba)J$-0$+/./068$-7E/0$-H7*-5+B$3E/+/$8*+7+$60/$*5$*5,0/6+*5D$-0F/0$TQ$8/5D7EB E*,E$+E-?8F$2/$H0/L/0
M7$7?05+$-?7$7E67$-5/$6HH0-6,E$7E67$*+$-L7/5$?+/L?8$*+$7-$46K/$7E/$+-07*5D$-*(39%B$C$4/7E-F$-L$+-07*5D$*+$-*(39%$*L$6L7/0$+-07*5DJ$7E/$-0F/0$-L$*7/4+$7E67$60/$]7E/$+64/]$6,,-0F*5D$7-$7E/$+-07*5D ,0*7/0*-5$*+$?5,E65D/FB
V-0$/G64H8/J$(list I I was ere saw able Elba)$*+$7E/$0/+?87$-L$+-07*5D$(list able was I ere I saw Elba)$TQ$+70*5D$8/5D7EJ$?+*5D$6$+76T8/ +-07B$A5$7E/$-7E/0$E65FJ$(list I I saw ere was Elba able)$E6+$5-7$T//5$+-07/F$*5$6$+76T8/$4655/0J$+*5,/$saw$65F$was$E6./$7E/$+64/$8/5D7EJ$T?7$saw H0/.*-?+8Q$,64/$6L7/0$wasJ$65F$5-2$,-4/+$T/L-0/B
M5$C++*D54/57$ (scrabble-sort (list IT OF CAN DEAN JEST ONE))
(list IT ONE OF DEAN CAN JEST)
&-07*5D$H?7+$7E/4$*5$-0F/0$TQ$+,-0/B$a?7$+*5,/$M3$,64/$T/L-0/$A1XJ$65F$7E/Q$E6./$/U?68$+,-0/+J$M3$+7*88$,-4/+$T/L-0/$A1XB$&*4*8608QJ$AV$65F$)XC1$E6./$/U?68$+,-0/+J$65F$0/46*5$*5$7E/$+64/ -0F/0B
3E*5K$6T-?7$4-F/88*5D$Q-?0$+-8?7*-5$?H-5$7E/$*5+/07*-5$+-07$68D-0*7E4$+E-25$*5$S/++-5$9bB<J$65F$20*7*5D$Q-?0$-25$E/8H/0$L?5,7*-5$7-$,-4H60/$72-$2-0F+B$ML$6$2-0F$6HH/60+$4?87*H8/$7*4/+$*5 7E/$*5H?7$8*+7J$*7$+E-?8F$6HH/60$7E/$+64/$5?4T/0$-L$7*4/+$*5$7E/$0/+?87BY-?$46Q$?+/$Q-?0$-25$+-8?7*-5$7-$7E/$&#038;,06TT8/$+,-0*5D$H0-T8/4$L0-4$C++*D54/57$<B$ML$Q-?$H0/L/0J$Q-?$46Q$?+/$7E/$H-+7/F$+-8?7*-5J$-5,/$*7$*+$6.6*86T8/B &#038;?T4*7$Q-?0$+-8?7*-5$*5$7E/$Z8/$a05q2.rktB$ “/$60/$D-*5D$7-$7E*5K$6T-?7$8*+7+$-L$8/5D7E$/G6,78Q$=J$0/H0/+/57*5D$65$6?7E-0J$7*78/J$65F$5?4T/0$-L$H6D/+B$X6,E$+?,E$8*+7$2/$2*88$,688$6$BookB$a/,6?+/$Book$*+$6$,-4H-?5FJ$2/c88$*5,8?F/$6 ,-5+70?,7-0$65F$65F$+/8/,7-0+$L-0$*7# ;; a Book is a (list Nat) ;; Constructor (define (make-book author title pages) (list author title pages)) ;; Selectors (define (book-author b) (first b)) (define (book-title b) (second b)) (define (book-pages b) (third b)) ;; A BookSet (BS) is a (listof Book)O/0/$60/$6$L/2$/G64H8/+$-L$6$Book#1 (define weir (make-book “Weir” “The Martian” 369))2 (define euclid (make-book “Euclid” “Elements” 654)) “/$,65$7E/5$46K/$6$BSJ$2E*,E$,65$+7-0/$6$8-7$-L$*5L-0467*-5B$V-0$/G64H8/# (define booklist(make-book “Liu” “The Three Body Problem” 302)(make-book “Nawaz” “Songs for the End of the World” 400)(make-book “Heinlein” “The Moon Is a” 382)(make-book “Weir” “The Martian” 369)(make-book “Clancy” “The Sum of All Fears” 798)(make-book “Nawaz” “Bone and Bread” 445)(make-book “Heinlein” “Stranger in a Strange Land” 408)(make-book “Heinlein” “Starship Troopers” 263)))”0*7/$6$L?5,7*-5$(total-pages books author)J$2E/0/$books$*+$6$BSJ$65F$author$*+$/*7E/0$6$Str$-0$’anyB$”E/5$author$*+$6$StrJ$7E/$L?5,7*-5$H0-F?,/+$7E/$7-768$5?4T/0$-L$H6D/+$*5 books$20*77/5$TQ$7E67$6?7E-0B$”E/5$author$*+$’anyJ$7E/$L?5,7*-5$H0-F?,/+$7E/$7-768$5?4T/0$-L$H6D/+$*5$books$20*77/5$TQ$65Q$6?7E-0B$V-0$/G64H8/#1 (check-expect (total-pages booklist “Nawaz”) 845) 2 (check-expect (total-pages booklist “Seuss”) 0)3 (check-expect (total-pages booklist ‘any) 3367)%-HQ$7E/$F676$F/Z5*7*-5+$65F$,-5./5*/5,/$L?5,7*-5+$6T-./$*57-$Q-?0$+-8?7*-5J$65F$?+/$7E/4B$Y-?$F-$5-7$5//F$7-$H0-.*F/$F/+*D5$0/,*H/+$L-0$7E/$H0-.*F/F$,-5+70?,7-0$-0$+/8/,7-0+B &?T4*7$Q-?0$+-8?7*-5$*5$7E/$Z8/$a05q3.rktB CS : assignmentchef QQ: 1823890830 Email: [email protected]