Permalink
Browse files

Nicer CLI

  • Loading branch information...
1 parent 5e861b0 commit 3e82558c8388182d9f91476df7e5d4316cd238dd @jrom committed Jun 3, 2010
Showing with 7 additions and 2 deletions.
  1. +7 −2 src/programa.clp
View
@@ -175,7 +175,8 @@
(declare (salience 10))
=>
(printout t crlf)
- (printout t "============ INICI =============" crlf)
+ (printout t "================================================================" crlf)
+ (printout t crlf "Sistema basat en el coneixement recomanador de llibres" crlf)
(focus preguntes-perfil-lector)
)
@@ -1192,10 +1193,14 @@
(bind ?reco (fact-slot-value ?lector reco))
(bind ?reco (sort >recomanacio ?reco))
(bind ?reco (subseq$ ?reco 1 3))
- (printout t crlf crlf crlf "Mostrant les tres millors recomanacions (si n'hi ha)" crlf)
+ (printout t "================================================================" crlf)
+ (printout t crlf (fact-slot-value ?lector nom) ", " crlf)
+ (printout t "aquests llibres són la recomanació del SBC: " crlf)
(progn$ (?r ?reco)
(bind ?isbn (fact-slot-value ?r isbn))
(bind ?l (nth$ 1 (find-instance ((?llibre Llibre)) (eq (str-compare ?llibre:isbn ?isbn) 0) )) )
(mostra-llibre ?l)
)
+ (printout t crlf "================================================================" crlf)
+
)

0 comments on commit 3e82558

Please sign in to comment.