Path: csiph.com!news.mixmin.net!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail From: Patricia Ferreira Newsgroups: pt.comp.programacao Subject: Re: Lisp, um mapa de trajeto Date: Sun, 14 Jan 2024 10:51:44 -0300 Organization: A noiseless patient Spider Lines: 102 Message-ID: <87mst8rpjj.fsf@example.com> References: <87sf37ajzn.fsf@example.com> <87y1cy8z8u.fsf@example.com> <87v881z5qs.fsf@brilhante.top> <87a5pd6kuv.fsf@yaxenu.org> <8734v3ztrz.fsf@brilhante.top> <877cke4ny3.fsf@example.com> <87y1cujtsk.fsf@brilhante.top> <87ttni48z9.fsf@example.com> <87r0im428v.fsf@brilhante.top> <87edem3yds.fsf@example.com> <87edel4avz.fsf@brilhante.top> <874jfhvwb9.fsf@example.com> <87a5p83yxq.fsf@brilhante.top> MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Injection-Info: dont-email.me; posting-host="f00027c86e22405980e672862dc680af"; logging-data="494040"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1+t8FUscz6oIyhGEMEN92qwC/8l+cY/KZ4=" Cancel-Lock: sha1:TshYMh3KQlbIkD/2SHHcLeXnILw= sha1:dgnNVTyQsVVsmSd+TUiDA8pIKpI= Xref: csiph.com pt.comp.programacao:151 Daniel Cerqueira writes: > Patricia Ferreira writes: > >> Muito bom! Agora acreditamos em falta de atenção no anterior. Um nome >> melhor pra esse procedimento seria /merge/. Com ele você implementa o >> seu /ordenar/ --- que se chama /merge sort/, um respeitoso algoritmo. >> >> (*) Exercício 3 >> >> Considere a lista abaixo como uma representação pra um grafo >> direcionado. >> >> (defparameter sample-graph >> '((A (B E)) >> (B (E F)) >> (C (D)) >> (D ()) >> (E (C F)) >> (F (D G)) >> (G ()))) >> >> Os vertices são o que você espera --- A, B, C, ..., G. A lista >> associada a um vértice /v/ representa os outros vértices a que /v/ tem >> acesso. Por exemplo, A tem aresta pra B, mas B não tem aresta pra A. >> Escreva um procedimento chamado /find-path/ tal que >> >> (find-path 'C 'D sample-graph) produza '(C D) >> (find-path 'E 'D sample-graph) produza '((E F D) (E C D)) >> (find-path 'C 'G sample-graph) produza nil >> >> Quando terminar de fazer, veja o tempo que levou. > > É para resolver usando Common Lisp, ou o Lisp simples (como do último > exercício)? Tens de me dizer isso. > > Também é para criar apenas uma função? Recursiva? Ou posso usar > quaisquer outras funções? Como primeira versão, use apenas recursão, cons, cond, car, cdr e essas coisas. Vamos dar uma olhada no algoritmo primeiro de uma forma pura. >> Já entendi. Você quer brincar de criptografia. Podemos brincar. Por >> que você não explicou antes? Eis minha chave: >> >> -----BEGIN RSA PRIVATE KEY----- >> e4B...^C^C >> >> Lol! Essa foi por pouco. (Estão rindo de quê? Tenho enorme >> experiência com criptografia. Ridículo.) Lol. > > Ahahahah! Essa foi boa! > >> -----BEGIN PUBLIC KEY----- >> MIIBIDANBgkqhkiG9w0BAQEFAAOCAQ0AMIIBCAKCAQEA0eTpkgBTghWSEr8UsoqX >> yTac3Cx3QBal/UG5xbP/6oaWo9f3uzS5smvzN6uBopjeDxf7YqFLmXeIqk1kfBd0 >> osFhMhFnGqsLnfQ6q+Kv0qMMOa9cWC2V53K5yoQ3EoxR1kJJ8wDmsc/Dio7Uqz/f >> Wb1vXIrjzqCuwbHEeu0A4cqCh9GWdcgUubbzgN5h/SNMkrWl9nikyyxqK7zOjIm3 >> 6ET5Ag4c3Zwp9w1+wMpxz39vdAtp82knQuVgyBwKTJX4U15NTWhdk09tXI8i/e8d >> JtZXk8SDY5rYgELryZvecPMH5ik03z+8i09vuga/IelpZ6w2GmxM20yDFNzBF84F >> iQIBJQ== >> -----END PUBLIC KEY----- > > Esta chave pública é inválida. O meu GnuPG não a importa. Que erro ele dá? Será que ele está querendo o tipo da chave? É uma RSA. Eis o módulo e o expoente público: --8<---------------cut here---------------start------------->8--- %openssl.exe rsa -in pub.txt -pubin -text writing RSA key RSA Public-Key: (2048 bit) Modulus: 00:d1:e4:e9:92:00:53:82:15:92:12:bf:14:b2:8a: 97:c9:36:9c:dc:2c:77:40:16:a5:fd:41:b9:c5:b3: ff:ea:86:96:a3:d7:f7:bb:34:b9:b2:6b:f3:37:ab: 81:a2:98:de:0f:17:fb:62:a1:4b:99:77:88:aa:4d: 64:7c:17:74:a2:c1:61:32:11:67:1a:ab:0b:9d:f4: 3a:ab:e2:af:d2:a3:0c:39:af:5c:58:2d:95:e7:72: b9:ca:84:37:12:8c:51:d6:42:49:f3:00:e6:b1:cf: c3:8a:8e:d4:ab:3f:df:59:bd:6f:5c:8a:e3:ce:a0: ae:c1:b1:c4:7a:ed:00:e1:ca:82:87:d1:96:75:c8: 14:b9:b6:f3:80:de:61:fd:23:4c:92:b5:a5:f6:78: a4:cb:2c:6a:2b:bc:ce:8c:89:b7:e8:44:f9:02:0e: 1c:dd:9c:29:f7:0d:7e:c0:ca:71:cf:7f:6f:74:0b: 69:f3:69:27:42:e5:60:c8:1c:0a:4c:95:f8:53:5e: 4d:4d:68:5d:93:4f:6d:5c:8f:22:fd:ef:1d:26:d6: 57:93:c4:83:63:9a:d8:80:42:eb:c9:9b:de:70:f3: 07:e6:29:34:df:3f:bc:8b:4f:6f:ba:06:bf:21:e9: 69:67:ac:36:1a:6c:4c:db:4c:83:14:dc:c1:17:ce: 05:89 Exponent: 37 (0x25) -----BEGIN PUBLIC KEY----- MIIBIDANBgkqhkiG9w0BAQEFAAOCAQ0AMIIBCAKCAQEA0eTpkgBTghWSEr8UsoqX yTac3Cx3QBal/UG5xbP/6oaWo9f3uzS5smvzN6uBopjeDxf7YqFLmXeIqk1kfBd0 osFhMhFnGqsLnfQ6q+Kv0qMMOa9cWC2V53K5yoQ3EoxR1kJJ8wDmsc/Dio7Uqz/f Wb1vXIrjzqCuwbHEeu0A4cqCh9GWdcgUubbzgN5h/SNMkrWl9nikyyxqK7zOjIm3 6ET5Ag4c3Zwp9w1+wMpxz39vdAtp82knQuVgyBwKTJX4U15NTWhdk09tXI8i/e8d JtZXk8SDY5rYgELryZvecPMH5ik03z+8i09vuga/IelpZ6w2GmxM20yDFNzBF84F iQIBJQ== -----END PUBLIC KEY----- --8<---------------cut here---------------end--------------->8---