[Πρ. Τεχνικές - ΠΠΣ] Πόσταρε τον κώδικά σου! 2016/2017

[Thmmy.gr portal]

  Thmmy.gr portal
   Forum
   Downloads
   Ενεργ. Λογαριασμού
   Επικοινωνία
  
  Χρήσιμα links
   Σελίδα τμήματος
   Βιβλιοθήκη Τμήματος
   Elearning
   Φοιτητικά fora
   Πρόγραμμα Λέσχης
   Πρακτική Άσκηση
   Ηλεκτρονική Εξυπηρέτηση Φοιτητών
   Διανομή Συγγραμμάτων
   Ψηφιακό Καταθετήριο Διπλωματικών
   Πληροφορίες Καθηγητών
   Instagram @thmmy.gr
   mTHMMY
  
  Φοιτητικές Ομάδες
   ACM
   Aristurtle
   ART
   ASAT
   BEAM
   BEST Thessaloniki
   EESTEC LC Thessaloniki
   EΜΒ Auth
   IAESTE Thessaloniki
   IEEE φοιτητικό παράρτημα ΑΠΘ
   SpaceDot
   VROOM
   Panther
  

THMMY.gr Web

Helios_MultiScribbles2SMF Default ThemeSMFone_Blue

[Ανεβάζετε τα θέματα των εξετάσεων στον τομέα Downloads]

Είσαι πρωτοετής;... Καλώς ήρθες! Μπορείς να βρεις πληροφορίες εδώ. Βοήθεια για τους καινούργιους μέσω χάρτη.

Κατεβάστε εδώ το Android Application για εύκολη πρόσβαση στο forum.

Ανεβάζετε τα θέματα των εξετάσεων στον τομέα Downloads με προσοχή στα ονόματα των αρχείων!

[MrRobot]

Και τώρα που τελείωσαν οι υποβολές της πρώτης εργασίας ορίστε η λύση μου.



Σε έκανα split. Όποιος θέλει ας ποστάρει το κώδικά του από τις ασκήσεις για να βλέπουμε διαφορετικές υλοποιήσεις και να παίρνουμε ιδέες.
edit2: Topic title

[Apostolof]

Έχει ανέβει η λύση της 1ης εργασίας στο e-learning..

https://elearning.auth.gr/pluginfile.php/497525/mod_resource/content/1/ps1-correct.scm

[Talaipa]

η λύση της δεύτερης:
https://elearning.auth.gr/pluginfile.php/501875/mod_resource/content/1/ps2-correct.scm
έχουμε χρησιμοποιήσει την max που βρίσκεται στη συνάρτηση depth;;

[RFed the King]

η max μπορουσε να υλοποιηθει και με τον τελεστη < ή > οποτε το ιδιο πραγμα ειναι...
οχι στο μαθημα δεν την εχει αναφερει

[stefkar89]

η max μπορουσε να υλοποιηθει και με τον τελεστη < ή > οποτε το ιδιο πραγμα ειναι...
οχι στο μαθημα δεν την εχει αναφερει

Όρίστε η δική μου εκδοχή με τον τελεστή '>' :

;; ##########################################
;; Code to be completed by the students

(define (weights# mobile)
           (if (is-sculpture? mobile)
            1
           (+ 1 (weights# (left-mobile mobile)) (weights# (right-mobile mobile)))))
           
     
(define (total-weight mobile)
           (if (is-sculpture? mobile)
            (get-weight mobile)
           (+ (get-weight mobile)  (total-weight (left-mobile mobile)) (total-weight (right-mobile mobile)))))

(define (depth mobile)
            (if (is-sculpture? mobile)
             1
            (if (> (depth (left-mobile mobile)) (depth (right-mobile mobile)))
                (+ 1 (depth (left-mobile mobile)))
                (+ 1 (depth (right-mobile mobile))))))

(define (balanced? mobile)
  (if (is-sculpture? mobile)
     #t
     (if (= (total-weight (left-mobile mobile)) (total-weight (right-mobile mobile)))
       (if (balanced? (left-mobile mobile))
         (if (balanced? (right-mobile mobile))
                #t
                #f)
                    #f)
                      #f)))
 

[RFed the King]

η δικη μου ιδια με cond (ουσιαστικα καμια διαφορα)

Code:

;; ##########################################
;; Code to be completed by the students

(define (weights# mobile)
  (cond ((is-sculpture? mobile) 1)  
        (else (+ (weights# (left-mobile mobile)) (weights# (right-mobile mobile)) 1))))

(define (total-weight mobile)
  (cond ((is-sculpture? mobile) (get-weight mobile))
        (else (+ (total-weight (left-mobile mobile))
                 (total-weight (right-mobile mobile))
                 (get-weight mobile)))))

                
(define (depth mobile)
  (cond ((is-sculpture? mobile) 1)
        ((> (depth (right-mobile mobile)) (depth (left-mobile mobile))) (+ 1 (depth (right-mobile mobile))))
        ;((< (depth (left-mobile mobile)) (depth (right-mobile mobile))) (+ 1 (depth (left-mobile mobile))))))
        (else (+ 1 (depth (left-mobile mobile))))))


(define (balanced? mobile)
  (cond ((is-sculpture? mobile) #t)
        ((= (total-weight (left-mobile mobile)) (total-weight (right-mobile mobile)))
            (and (balanced? (left-mobile mobile)) (balanced? (right-mobile mobile))))
        (else #f)))

[leukosaraphs!]

Η λύση μου για την άσκηση 3 , εδώ !

[leukosaraphs!]

Η λύση μου για την άσκηση 4 , εδώ !

Επισης , σημερα "ακουστηκε" στην σχολη (και συγκεκριμενα στην βιβλιοθηκη) οτι εγω στα pm του forum , δινω (?) τον κωδικα μου -πριν την ληξη της διοριας- αν καποιος μου τον ζητησει!

Δεν ξερω ποιος το ξεκινησε , κι δεν θελω να μαθω κιολας... αλλα ρε παιδες πολυ με στεναχωρησατε  !
(Για οποιον ειχε την απορια , κι γιατι καποια παιδια με ρωτησαν στην σχολη.... οχι δεν δινω τον κωδικα μου , απλα απανταω στις αποριες! και θα ηθελα να σταματησει αυτη η "φημη" .)
 

[Talaipa]

Η λύση μου για την άσκηση 4 , εδώ !

Επισης , σημερα "ακουστηκε" στην σχολη (και συγκεκριμενα στην βιβλιοθηκη) οτι εγω στα pm του forum , δινω (?) τον κωδικα μου -πριν την ληξη της διοριας- αν καποιος μου τον ζητησει!

Δεν ξερω ποιος το ξεκινησε , κι δεν θελω να μαθω κιολας... αλλα ρε παιδες πολυ με στεναχωρησατε  !
(Για οποιον ειχε την απορια , κι γιατι καποια παιδια με ρωτησαν στην σχολη.... οχι δεν δινω τον κωδικα μου , απλα απανταω στις αποριες! και θα ηθελα να σταματησει αυτη η "φημη" .)
 

γενικά αν κάποιος παρακολουθεί μπορεί να καταλάβει την στάση σου σε τέτοια θέματα...
μπορεί κάποια στιγμή να βοήθησες κάποιον με μια γραμμή κώδικα και αυτός να είπε σε άλλον ο οποίος μπορεί να το ερμήνευσε λάθος..

Προτείνω να μην ασχοληθείς περαιτέρω με αυτό!

[kongr45gpen]

Αν και λίγο καθυστερημένα, η δική μου λύση για το task 4:

• ps4.scm
• tester4.scm

[Apostolof]

[leukosaraphs!]

Η λύση μου για την άσκηση 5 , εδώ !

Οχι, κατι τρομερο... αλλα οκ!

Επισης , ποσταρετε κι κανενας αλλος τον κωδικα του :Ρ να περνουμε ιδεες 

[Egkelados]

http://pastebin.com/supXCw1G

[leukosaraphs!]

Η λύση μου για την άσκηση 6 , εδώ !