ALL

Author: Theo Cliquot

.config_emacs

@@ -0,0 +1,38 @@
+(load "quack.el")
+(require (quote quack))
+(custom-set-variables
+  ;; custom-set-variables was added by Custom.
+  ;; If you edit it by hand, you could mess it up, so be careful.
+  ;; Your init file should contain only one such instance.
+  ;; If there is more than one, they won't work right.
+ '(case-fold-search t)
+ '(current-language-environment "UTF-8")
+ '(default-input-method "rfc1345")
+ '(inhibit-startup-screen t)
+ '(show-paren-delay 0)
+ '(show-paren-mode t)
+ '(show-paren-style (quote expression))
+ '(transient-mark-mode t)
+ '(auto-compression-mode t nil (jka-compr))
+ '(case-fold-search t)
+ '(current-language-environment "UTF-8")
+ '(default-input-method "rfc1345")
+ '(global-font-lock-mode t nil (font-lock))
+
+ '(quack-browse-url-browser-function (quote browse-url-mozilla))
+ '(quack-default-program "mit-scheme")
+;; '(quack-fontify-style (quote emacs))
+;; '(quack-newline-behavior (quote indent-newline-indent))
+;; '(quack-pretty-lambda-p nil)
+ '(quack-smart-open-paren-p t)
+ '(quack-switch-to-scheme-method (quote own-frame))
+ '(diff-switches "-u")
+ '(inhibit-startup-screen t)
+)
+(custom-set-faces
+  ;; custom-set-faces was added by Custom.
+  ;; If you edit it by hand, you could mess it up, so be careful.
+  ;; Your init file should contain only one such instance.
+  ;; If there is more than one, they won't work right.
+ )
+

annale/exo2.scm

@@ -0,0 +1,46 @@
+(define evPol (lambda (P x)
+                (if (null? (cdr P))
+                    (car P)
+                    (+ (* x (evPol (cdr P) x)) (car p))
+                 )
+                ))
+
+(evPol '(0 0 -1 2 3) 4)
+
+(define fp (lambda (P)
+            (lambda (x) (evPol P x))))
+
+((fp '(0 0 -1 2 3)) 4)
+
+(define somPol
+  (lambda (P1 P2)
+    (map + P1 P2)))
+
+(somPol `(0 1 2 3 4) `(4 3 2 1 0))
+
+(define multxPol
+  (lambda (P)
+    (append `(0) P)))
+
+(multxPol `(1 2 3))
+
+(define miroir
+  (lambda (l)
+    (if (null? (cdr L))
+        L
+        (append (miroir (cdr L)) (list(car L))))
+        )
+    )
+
+(define prefixe
+  (lambda (L)
+    (if (null? L)
+        L
+        (cons (list (car L)) (map (lambda (x) (cons (car L) x)) (prefixe (cdr
+                                                                            L)))))))
+
+(prefixe '(A B C))
+      
+(define plsc
+  (lambda (L)
+    ))

tp1/*Backtrace*

@@ -0,0 +1,8 @@
+Debugger entered--Lisp error: (void-function define)
+  (define carre (function (lambda (L) (if (null\? L) (quote nil) (append (* (car L) (car L)) (cdr L))))))
+  eval((define carre (function (lambda (L) (if (null\? L) (quote nil) (append (* (car L) (car L)) (cdr L)))))) nil)
+  elisp--eval-last-sexp(nil)
+  eval-last-sexp(nil)
+  funcall-interactively(eval-last-sexp nil)
+  call-interactively(eval-last-sexp nil nil)
+  command-execute(eval-last-sexp)

tp1/..config_emacs.un~

@@ -0,0 +1,38 @@
+(load "quack.el")
+(require (quote quack))
+(custom-set-variables
+  ;; custom-set-variables was added by Custom.
+  ;; If you edit it by hand, you could mess it up, so be careful.
+  ;; Your init file should contain only one such instance.
+  ;; If there is more than one, they won't work right.
+ '(case-fold-search t)
+ '(current-language-environment "UTF-8")
+ '(default-input-method "rfc1345")
+ '(inhibit-startup-screen t)
+ '(show-paren-delay 0)
+ '(show-paren-mode t)
+ '(show-paren-style (quote expression))
+ '(transient-mark-mode t)
+ '(auto-compression-mode t nil (jka-compr))
+ '(case-fold-search t)
+ '(current-language-environment "UTF-8")
+ '(default-input-method "rfc1345")
+ '(global-font-lock-mode t nil (font-lock))
+
+ '(quack-browse-url-browser-function (quote browse-url-mozilla))
+ '(quack-default-program "mit-scheme")
+;; '(quack-fontify-style (quote emacs))
+;; '(quack-newline-behavior (quote indent-newline-indent))
+;; '(quack-pretty-lambda-p nil)
+ '(quack-smart-open-paren-p t)
+ '(quack-switch-to-scheme-method (quote own-frame))
+ '(diff-switches "-u")
+ '(inhibit-startup-screen t)
+)
+(custom-set-faces
+  ;; custom-set-faces was added by Custom.
+  ;; If you edit it by hand, you could mess it up, so be careful.
+  ;; Your init file should contain only one such instance.
+  ;; If there is more than one, they won't work right.
+ )
+

tp1/.carre.sch.un~

@@ -0,0 +1,38 @@
+(load "quack.el")
+(require (quote quack))
+(custom-set-variables
+  ;; custom-set-variables was added by Custom.
+  ;; If you edit it by hand, you could mess it up, so be careful.
+  ;; Your init file should contain only one such instance.
+  ;; If there is more than one, they won't work right.
+ '(case-fold-search t)
+ '(current-language-environment "UTF-8")
+ '(default-input-method "rfc1345")
+ '(inhibit-startup-screen t)
+ '(show-paren-delay 0)
+ '(show-paren-mode t)
+ '(show-paren-style (quote expression))
+ '(transient-mark-mode t)
+ '(auto-compression-mode t nil (jka-compr))
+ '(case-fold-search t)
+ '(current-language-environment "UTF-8")
+ '(default-input-method "rfc1345")
+ '(global-font-lock-mode t nil (font-lock))
+
+ '(quack-browse-url-browser-function (quote browse-url-mozilla))
+ '(quack-default-program "mit-scheme")
+;; '(quack-fontify-style (quote emacs))
+;; '(quack-newline-behavior (quote indent-newline-indent))
+;; '(quack-pretty-lambda-p nil)
+ '(quack-smart-open-paren-p t)
+ '(quack-switch-to-scheme-method (quote own-frame))
+ '(diff-switches "-u")
+ '(inhibit-startup-screen t)
+)
+(custom-set-faces
+  ;; custom-set-faces was added by Custom.
+  ;; If you edit it by hand, you could mess it up, so be careful.
+  ;; Your init file should contain only one such instance.
+  ;; If there is more than one, they won't work right.
+ )
+

tp1/.config_emacs

@@ -0,0 +1,7 @@
+(define carre
+    (lambda (L)
+        (if (null? L)
+        '()
+        (cons (* (car L) (car L)) (carre (cdr L))))))
+    
+(carre '(1 2 3 4 5)

tp1/.config_emacs~

@@ -0,0 +1,10 @@
+(define carre
+  (lambda (l)
+    (if (null? (cdr l))
+    (list (* (car l) (car l)))
+    (cons (* (car l) (car l)) (carre (cdr l)))
+    )
+   )
+)
+
+(carre '(1 2 3 4 5))

tp1/carre.sch

@@ -0,0 +1,22 @@
+(define PI 3.1415)
+
+(define circle_perim
+  (lambda (r)
+    (list (* 2 (* PI r)))
+  )
+)
+
+(define circle_aire
+  (lambda (r)
+    (list (* r (* PI r)))
+  )
+)
+
+
+(define circle
+  (lambda (r)
+    (append (circle_perim r) (circle_aire r))
+    )
+)
+
+(circle 2)

tp1/carre.scm

@@ -0,0 +1,18 @@
+(define membre
+  (lambda (x L)
+    (if(null? L)
+       #f
+       (if(= (car L) x)
+          #t
+          (membre x (cdr L))))))
+
+
+(define epure
+  (lambda (L)
+    (if (null? L)
+        '()
+        (if (membre (car L) (cdr L))
+            (epure (cdr L))
+            (cons (car L) (epure(cdr L)))))))
+
+(display (epure '(4 5 5 2 4 5 2 6 2 2)))

tp1/circle.scm

@@ -0,0 +1,10 @@
+(define fac
+  (lambda (x)
+    (if (= x 0)
+        1
+        (* x (fac (- x 1)))
+        )
+    )
+)
+
+(fac 4)

tp1/epure.scm

@@ -0,0 +1,20 @@
+(define fibo_rec_term
+  (lambda (x u1 u2)
+    (if (<= x 1)
+        u2
+        (fibo_rec_term (- x 1) u2 (+ u1 u2))
+        )
+    )
+)
+    
+    
+
+(define fibo
+  (lambda (x)
+    (if (= x 0)
+        0
+        (fibo_rec_term (- x 1)  1 1))
+    )
+  )
+
+(fibo 10)

tp1/fac.scm

@@ -0,0 +1,19 @@
+(define ies
+  (lambda (L n)
+    (if (null? L)
+        '(()()())
+        (let ((result (ies (cdr L) n)))
+          (if (< (car L) n)
+              (list (cons (car L) (car result)) (cadr result) (caddr result))
+              (if (> (car L) n)
+                  (list (car result) (cadr result) (cons (car L) (caddr result)))
+                    (list (car result) (cons (car L) (cadr result)) (caddr result))
+                    )
+              )
+          )
+        )
+    )
+  )
+
+(ies '(1 2 3 4 5 6 7 6 5 4 3 2 1) 5)
+                  

tp1/fibo.scm

@@ -0,0 +1,10 @@
+(define insere
+  (lambda (n x L)
+    (if (and (null? L) (> n 0))
+        L
+        (if (= n 0)
+            (cons x L)
+            (cons (car L) (insere (- n 1) x (cdr L)))))))
+
+(insere 2 2 '(0 1 3 4))
+(insere 10 999 '(0 1 2 3 4))

tp1/ies.scm

@@ -0,0 +1,17 @@
+(define membre
+  (lambda (x L)
+    (if(null? L)
+       #f
+       (if(= (car L) x)
+          #t
+          (membre x (cdr L))))))
+
+(define inter
+  (lambda (L1 L2)
+    (if (null? L1)
+        '()
+        (if (membre (car L1) L2)
+            (cons (car L1) (inter (cdr L1) L2))
+            (inter (cdr L1) L2)))))
+
+(inter '( 1 2 3 4 5 6 2) '(0 2 4 6))

tp1/insere.scm

@@ -0,0 +1,10 @@
+(define long
+  (lambda (L)
+    (if (null? L)
+    0
+    (+ 1 (long (cdr L)))
+    )
+  )
+)
+
+(long '(1 2 3 4 5 6 7 8 9))

tp1/inter.scm

@@ -0,0 +1,9 @@
+(define membre
+  (lambda (x L)
+    (if(null? L)
+       #f
+       (if(= (car L) x)
+          #t
+          (membre x (cdr L))))))
+
+(membre 3 '(4 5 4 5 10 33))

tp1/long.scm

@@ -0,0 +1,9 @@
+(define miroir
+  (lambda (l)
+    (if (null? (cdr L))
+        L
+        (append (miroir (cdr L)) (list(car L))))
+        )
+    )
+
+(miroir '(1 2 3 4 5))

tp1/membre.scm

@@ -0,0 +1,18 @@
+(define (sum_len L)
+    (if (null? L)
+        '(0 0)
+        (let ((result (sum_len (cdr L))))
+              (list (+ (car L) (car result)) (+ 1 (cadr result)))
+              )
+        )
+    )
+              
+
+(define moy
+  (lambda (L)
+   (let ((result (sum_len L)))
+              (/(car result) (cadr result))
+              )))
+
+(sum_len '(1 2 3 4))
+(moy '(1 2 3 4 5))

tp1/miroir.scm

@@ -0,0 +1,9 @@
+(define nbpos
+  (lambda (L)
+    (if(null? L)
+       0
+       (if (>= (car L) 0)
+          (+ 1 (nbpos (cdr L)))
+          (nbpos (cdr L))))))
+
+(nbpos '(-1 -2 5 10 -3 4))

tp1/moy.scm

@@ -0,0 +1,7 @@
+(define nieme
+  (lambda (x L)
+    (if (= x 0)
+       (car L)
+       (nieme(- x 1) (cdr L)))))
+
+(nieme 5 '(0 1 2 3 4 5))

tp1/nbpos.scm

@@ -0,0 +1,10 @@
+(define niv0
+  (lambda (L)
+    (if(null? L)
+       '()
+       (if (list? (car L))
+           (append (niv0(car L)) (niv0 (cdr L)))
+           (cons (car L) (niv0 (cdr L))))
+
+       )))
+(niv0 '(0 (((1) 2) 3) (4 5) 6))