COMP 3007
Outline
Lectures
Assignments
Schedule
01| (define (run n)
02| (define (iter x y z)
03| (cond ((= z n) x)
|
:edoc gniwollof eht neviG ]skram 8[ 1 noitseuQ
mp55:11 @ ht92 hcraM yadnoM :euD .stnemnorivne dna ,stcejbo emehcS
4# tnemngissA – 7003 PMOC
7003 PMOC EMOH
04|
05|
06|
07|
08|
09|
10| (run 4)
((>= z x) (iter (+ x y)(- y z)(+ z 1)))
(else (iter (+ x x)(/ y 2)(+ z 1)))))
(if (< n 2)
n
(iter 0 16 0)))
iter
iter
01| (define (f L)
02| (cond ((null? L) '())
03| ((< (car L) 0)(cons (* (g (cdr L)) (car L)) (f (cdr L))))
04| (else (cons (car L)(f (cdr L))))))
05|
06| (define (g L)
07| (cond ((null? L) 0)
08| (else (+ (car L)(- (g (cdr L)))))))
09|
10| (f '(3 -7 4 2))
g
g
fo noitaulave eht gnirud margaid ruotnoc a warD ]skram 5/[ .b .selur gnipocs )citats( lacixel gnisu )flesti no sesrucer g erofeb( 8 enil fo gninnigeb
eht ta
eht ta fo noitaulave eht gnirud margaid ruotnoc a warD ]skram 5/[ .a
.))3 4 46 reti( ot llac eht erofeb .ei( fo noitaulave driht eht gnirud 30 enil fo trats eht ta margaid ruotnoc a warD ]skram 5/[ .b
. ot llac tsrfi eht erofeb ,80 enil fo trats eht ta margaid ruotnoc a warD ]skram 3/[ .a
:edoc gniwollof eht neviG ]skram 01[ 3 noitseuQ
.selur gnipocs cimanyd gnisu )flesti no sesrucer g erofeb( 8 enil fo gninnigeb
:edoc gniwollof eht neviG ]skram 01[ 2 noitseuQ
01| (define (alpha a)
02|
03|
04|
05|
06|
07|
08|
09| beta)
10|
(define z 3)
(define (beta b)
(define a (+ z b))
(+ a (gamma b)))
(define (gamma c)
(set! a (* z c))
a)
11| (define omega (alpha 1))
12| (omega 2)
(add-node x)
(add-edge x y)
(remove-node x)
(remove-edge x y)
(display)
make-graph
make-graph
esiwrehto f# dna lufsseccus fi t# nruter dluohs sdohtem rehto lla ,)gnihton snruter hcihw( dohtem yalpsid eht fo noitpecxe eht htiW
enil rep edon eno ,"egde egde egde :edon" :tamrof eht ni resu eht ot hparg eht fo stnetnoc eht syalpsid -
ti fi hparg eht morf egde nevig eht sevomer -
.llew sa devomer eb dluohs edon nevig eht ot sknil llA .stsixe
ti fi hparg eht morf edon nevig eht sevomer -
.ton seod egde eht dna tsixe sedon htob fi hparg
eht ni y edon ot x edon morf egde detcerid a sdda -
.tsixe ydaerla ton seod
ti fi hparg eht ot )eulav/lobmys( edon nevig a sdda -
:elyts gnissap-egassem a aiv snoitarepo gniwollof eht stroppus taht tcejbo na nruter dluohs erudecorp ehT .emehcS ni ngised detneiro tcejbo gnisu TDA hparG a stnemelpmi taht dellac erudecorp a enfieD ]skram 23[
.ton yhw nialpxe ,on fI .tuptuo eht edivorp ,sey fI ?erutcel
ni thguat sa epocs cimanyd gnisu krow edoc siht dluoW ]skram 3/[ .c )gnipocs lacixel gnisU( ?edoc siht fo tuptuo eht si tahW ]kram 1/[ .b
.epocs lacixel emussa dluohs gniward ruoY .)5 enil no ammag gnillac erofeb ,21 enil no agemo
gnillac retfa( 5 enil fo trats eht ta margaid ruotnoc a warD ]skram 6/[ .a
.stsixe
4 noitseuQ
(define G (make-graph))
((G 'add-node) 'a)
((G 'add-node) 'b)
((G 'add-node) 'c)
((G 'add-node) 'a)
((G 'add-edge) 'a 'b)
((G 'add-edge) 'a 'c)
((G 'add-edge) 'b 'b)
((G 'add-edge) 'b 'c)
((G 'add-edge) 'c 'd)
((G 'display))
;=> #t
;=> #t
;=> #t
;=> #f
;=> #t
;=> #t
;=> #t
;=> #t
;=> #f
;=>> a: bc
b: b c
c:
((G ‘remove-edge) ‘a ‘c) ;=> #t
((G ‘remove-node) ‘c) ;=> #t
((G ‘display)) ;=>> a: b
b: b
ton seod senilediug tnemngissa eht gnitsap dna gniypoc eton esaelP .AT suoreneg a si AT yppah a ;elbadaer ylisae dna dettamrof-llew si edoc ruoy taht erusnE .)nruter( tuptuo dna )sretemarap( stupni detcepxe sti gnidulcni noitcnuf hcae fo esoprup eht tnemucoD .selfi lla fo pot eht ta era rebmun tneduts dna eman ruoy taht erusnE
.sdohtem evoba eht fo noitcurtsnoc eht yfilpmis ot eriuqer yam uoy snoitcartsba ro snoitcnuf repleh etavirp yna etaerc ot degaruocne era uoY
)… ))c b a( . c( ))a c( . b( ))c b( . a(( :elpmaxe roF .tamrof tsil ycnecajda na ni hparg eht gnirots ,erutcurts atad gnikcab eht sa )sriap ro/dna( )s(tsil esu dluohs hparg ruoY
noitatnemucoD gnitseT & noitatnemucoD
:noitulos detelpmoc a htiw noitcaretni elpmaxe na si ereH
.esiwrehto f# dna lufsseccus fi t# nruter dluohs sdohtem rehto
hhttthti hliit f iffi
ro tniop rewop SM dnemmocer I .noissimbus ruoy rof skram )0( orez ni tluser lliw tamrof rehto ynA .selfi fdp. sa smargaid ruotnoc timbuS
.)nwo ruoy dnfi ro( hcaorppa rehtie esu ot eerf era uoY .mcs.semirp :ereh dnuof eb nac )tekcaR morf deworrob( gnitset tinu gnitartsnomed elpmaxe ralimis A .mcs.semirp :ereh dnuof eb nac gnitset dna noitatnemucod gnidulcni noissimbus elpmaxe nA
.secnereffid yna rof snoitanalpxe dna tuptuo devresbo sa llew sa tuptuo detcepxe gnivig ,yhw dna gnitset era uoy tahw ot sa gnitset ruoy tnemmoC :secitcarp tseb roF .skram orez eviecer lliw dna ,gnitset tneicffius etutitsnoc ton seod snur elpmaxe dedivorp eht gnitsap dna gniypoc ,eton esaelP etairporppa erehw euqinu eb ot detcepxe era sesac tset ruoY .noitseuq a rof skram 0 ni tluser lliw stuptuo tset detacirbaF .epyt tcerroc eht fo era deilppus stupni emussa yam uoy ,defiiceps esiwrehto sselnU .edoc ruoy fo sehcnarb elbissop lla dna stupni dilav lla revoc dluohs tub ,dnah ta noitseuq eht no dneped deriuqer stset cfiiceps ehT
.noissimbus ruoy ni noitcnuf yreve fo snur gnitset edulcni ot deriuqer era uoY
.yltcerroc ecruos eht etic tsum uoy tub tnemngissa eht ro erutcel ni dnuof txet ro edoc yna esu yam uoY .skram orez eviecer lliw dna ,noitatnemucod tneicffius etutitsnoc ton seod senilediug tnemngissa eht gnitsap dna gniypoc ,eton esaelP
noissimbuS
]latot skram 5[
gnitseT
.senilediug noissimbus lla rof eniltuo esruoc eht ees esaelP .ylppa lliw snoitcuded etal sdrawretfa ,etad eud eht erofeb em tcatnoc ,noissimbus htiw seussi gnivah era uoy fI .yllufsseccus detelpmoc si noissimbus eht taht GNIRUSNE dna selfi lla gnittimbus rof elbisnopser era uoY .snoissimbus etal rof detcuded eb lliw skraM .etad eud eht erofeb nraeLuc gnisu tnemngissa ruoy timbuS .tnaveler dna raelc eb dluohs seman tub ,selfi piz. rof noitnevnoc gniman yrotadnam on si erehT .noissimbus ruoy rof elfi piz. elgnis a otni selfi lla enibmoC .snoitseuq detceffa eht rof orez fo edarg a ni tluser lliw snoitnevnoc gniman debircserp eht wollof ot eruliaF .noissimbus ruoy rof seman noitcnuf dna elfi dedivorp lla dna yna esu tsum uoY .noitseuq taht rof 0 fo kram a ni tluser lliw )SR5R gnisu tekcaRrD ni( elbannur ton era taht selfi margorp ynA
.redarg eht fo noitercsid eht ta skram fo ssol ni tluser lliw snoissimbus elbigellI .sepahs ro txet daer ot drah yna terpretni ot ruovaedne ton lliw sAT ehT .elbigel si krow ruoy taht dna ,selfi fdp. sa dettimbus era snoissimbus ruoy erusne ,revewoH .snoissimbus ruoy hpargotohp dna ward-dnah yam uoY .fdp. sa tnirp/evas ot erus eb ,niagA .ekil uoy margorp gniward yna esu ot eerf era uoy hguoht ,txet htiw sepahs elpmis gnitaerc rof sserpmi ecffio nepo