AFDWEF, Common Lisp

Language: Layout:

;PARAMETER PLANTS ((NAME...) (VIREN...)(EIGENSCHAFTEN...)(VERRINGERN ...)(VERBESSERN ...))
(DEFPARAMETER PLANTS 
  '(((NAME TRAGANT ASTRAGALUS) (VIREN INFLUENZA ADENOVIREN HERPES_SIMPLEX COXSACKIE_VIRUS INFEKTIOESE_BURSITIS_DER_HUEHNER CYTOMEGALOVIRUS PUNTA_TORO_VIREN JAPANISCHE_ENZEPHALITIS PORCINE_PARVOVIRUS HEPATITIS_B STAUPE BUNYAVIREN)(EIGENSCHAFTEN ADAPTOGEN ANTIBAKTERIELL ANTIHEPATOTOXISCH ANTIVIRAL KARDIOPROTEKTIV DIURETIKUM BLUTDRUCKSENKEND IMMUNSTAERKER )(VERBESSERN BLUTKREISLAUF IMMUNFUNKTION)(VERRINGERN VIRALEN_INFEKTIONEN))
    ((NAME CORDYCEPS CORDYCEPS) (VIREN INFLUENZA HERPES_SIMPLEX HIV HEPATITIS_B NEWCASTLE_INFEKTION TUBERKELBAZILLUS PLASMODIUM CLOSTRIDIEN STAPHYLOCOCCUS_AUREUS ENTEROCOCCUS_FAECALIS BACILLUS_SUBTILIS CANDIDA_ALBICANS KREBS)(EIGENSCHAFTEN ANTIVIRAL ANTIASTHMATISCH ANTIBAKTERIELL ANTIKONVULSIVUM ENTZUENDUNGSHEMMEND ANTIMIKROBIELL ANTIOXIDATIONS FIEBERSENKEND ANTITUMORMITTEL ANTITUSSIVUM BRONCHIALREGULATOR KARDIOTONISCH SCHLEIMLOESEND HEPATOPROTEKTIV HYPOGLYKAEMISCH HYPOLIPIDAEMISCH IMMUNMODULATOR INSEKTIZID MITOCHONDRIEN_ADAPTOGEN NERVENBERUHIGUNG NEUROPROTEKTIV NIERENSCHUETZEND SCHLAFREGULIEREND STEROIDBILDEND)(VERRINGERN KONVULSIONEN ASTHMA VIRALEN_INFEKTIONEN ENTZUENDUNGEN FATIGUE HUSTEN SCHWINDELGEFUEHLE NYKTURIE) (VERBESSERN LIBIDO))
    ((NAME BAIKAL_HELMKRAUT SCUTELLARIA_BAICALENSIS)  (VIREN INFLUENZA ADENOVIREN INFEKTIOESE_BRONCHITIS ENTEROBAKTERIOPHAGE_MS2 COXSACKIE_VIRUS EPSTEIN_BARR_VIREN HEPATITIS_A HEPATITIS_B HEPATITIS_C HERPES_SIMPLEX HIV LEUKAEMIE MASERN MOSAIKVIRUS PARAINFLUENZA POLIOVIRUS PRRS_VIREN HRSV SARS_COV SENDAIVIRUS_INFEKTION STOMATITIS_VESICULARIS ) (EIGENSCHAFTEN ANODYNE ANTIANAPHYLAKTISCH ANTIANGIOGENE ANTIBAKTERIELL ANTIVIRAL ANTICHOLESTEROLEMIKUM ANTIKONVULSIVUM ANTIDIARRHOISCH ANTIDYSENTERISCH ANTIMYKOTISCH ANTIHYPERTENSIV ENTZUENDUNGSHEMMEND ANTIMETASTISCH ANTIOXIDATIONS ANTISPASMODISCH ANTITUMORMITTEL ADSTRINGIEREND CHOLAGOGUM DIURETIKUM SCHLEIMLOESEND FIEBERSENKEND BLUTSTILLEND HEPATOPROTEKTIV SEDATIVUM NERVENSTAERKEND NEUROPROTEKTIV)(VERBESSERN GEHIRNFUNKTION) (VERRINGERN VIRALEN_INFEKTIONEN FIEBER DURCHFALL DYSENTERIE REIZ KRAMPFANFALL KONVULSIONEN INSOMNIE))
    ((NAME HOLUNDER SAMBUCUS)(VIREN HERPES_SIMPLEX COXSACKIE_VIRUS ENTEROVIREN HIV INFLUENZA CHIKUNGUNYAFIEBER EPSTEIN_BARR_VIREN HEPATITIS_B HEPATITIS_C HEPATITIS_E JAPANISCHE_ENZEPHALITIS WEST_NILE_ENZEPHALITIS STOMATITIS_VESICULARIS POLIOVIRUS ADENOVIREN PORCINE_CIRCOVIRUS PORCINE_EPIDEMIC_DIARRHEA_VIRUS RHINOVIRENES JUNIN_VIRUS CYTOMEGALOVIRUS HRSV TABAKMOSAIKVIRUS SARS_COV DENGUE VOGELPOCKEN ROTAVIRUS STAUPE MURINE_NOROVIRUS FELINE_CALICIVIRUS EBOLAFIEBER )(EIGENSCHAFTEN ANTIVIRAL ANTIBAKTERIELL ANTIMYKOTISCH ANALGETISCH ENTZUENDUNGSHEMMEND ANTINOZIZEPTIV KREBSHEMMEND ANTIANGIOGEN ANTITERATOGEN SCHWEISSTREIBEND DIURETIKUM PROSTAGLANDIN_SYNTHESE_HEMMEND FIEBERSENKEND ANTIOXIDATIONS IMMUNSTIMULIEREND)(VERRINGERN FIEBER SCHMERZ ENTZUENDUNGEN SCHWELLUNGEN VIRALEN_INFEKTIONEN)(VERBESSERN SCHWITZEN IMMUNFUNKTION VOMITIEREN LEBERSCHUTZ))
    ((NAME INGWER ZINGIBER_OFFICINALE) (VIREN ERKAELTUNG INFLUENZA HEPATITIS HERPES_SIMPLEX GELBFIEBER MASERN WINDPOCKEN ENTEROVIREN RHINOVIREN CYTOMEGALOVIRUS HEPATITIS_C HIV EPSTEIN_BARR_VIREN NEWCASTLE_INFEKTION VACCINIAVIRUS MOSAIKVIRUS POLIOVIRUS)(EIGENSCHAFTEN ANTIVIRAL ANALGETIKUM ANTHELMINTHIKUM ANTIARTHRITISCH ANTIBAKTERIELL ANTIDIARRHOISCH ANTIEMETIKUM ANTIMYKOTISCH ENTZUENDUNGSHEMMEND KRAMPFLOESEND ANTITUSSIVUM KARMINATIVUM KREISLAUFSTIMULANS SCHWEISSTREIBEND ELASTASE_HEMMER BLUTDRUCKSENKEND IMMUNSTAERKER SYNERGIST)(VERBESSERN SCHWITZEN IMMUNFUNKTION BLUTKREISLAUF)(VERRINGERN VIRALEN_INFEKTIONEN NASENSCHLEIMHAUT DURCHFALL MOMADE KRAMPFANFALL FIEBER SCHUETTELFROS ENTZUENDUNGEN HUSTEN ANGSTZUSTAENDE SCHMERZ ERKAELTUNG MIGRAENE KOPFSCHMERZEN))
    ((NAME HOUTTUYNIA HOUTTUYNIA_CORDATA) (VIREN INFLUENZA SARS_COV DENGUE SEROTYPE_2 INFEKTIOESE_BRONCHITIS ENTEROVIREN ENTERIC_CYTOPATHIC_HUMAN_ORPHAN HERPES_SIMPLEX HIV CYTOMEGALOVIRUS PED_VIRUS HERPES_SIMPLEX)(EIGENSCHAFTEN ANTIVIRAL ANALGETIKUM ANTHELMINTHIKUM ANTIBAKTERIELL ANTIKREBS ANTIMYKOTISCH ENTZUENDUNGSHEMMEND ANTILEUKAEMISCH ANTIMIKROBIELL ANTIOXIDATIONS ANTITUSSIVUM ADSTRINGIEREND DIURETIKUM ENTSCHLACKEND EMMENAGOGUM FEBRIFUGE BLUTSTILLEND HYPOGLYKAEMISCH IMMUNMODULATORISCH LARVAZIDUM ABFUEHRMITTEL AUGENHEILKUNDE)(VERRINGERN VIRALEN_INFEKTIONEN HARNWEGE_INFEKTIONEN NIEREN_INFEKTIONEN GENITALBEREICH_INFEKTIONEN DYSENTERIE DURCHFALL AUGES_INFEKTIONEN HAUT_INFEKTIONEN))
    ((NAME WAID ISATIS) (VIREN INFLUENZA SARS_COV COXSACKIE_VIRUS ROETELN LEUKAEMIE INFEKTIOESE_BRONCHITIS HRSV ADENOVIREN MASERN MUMPS WINDPOCKEN EPSTEIN_BARR_VIREN HEPATITIS_B HERPES_SIMPLEX CYTOMEGALOVIRUS HFRS PRRS_VIREN PSEUDOWUT NEWCASTLE_INFEKTION GUERTELROSE)(EIGENSCHAFTEN ANTIVIRAL ANTIENTZUENDLICH FIEBERSENKEND ANTINOZIZEPTIV ANTIALLERGISCH TYROSINASE_HEMMER ANTIOXIDATIONS ANTIMYKOTISCH ANTIBAKTERIELL ANTIPARASITAER ANTILEUKAEMISCH ANTITUMOR UREASE_HEMMER SERIN_PROTEASE_HEMMSTOFF HEMMSTOFF_DER_BUTYRYCHOLINESTERASE LIPOXYGENASE_HEMMER ANTIENDOTOXIN DIOXIN_ANTAGONIST)(VERRINGERN VIRALEN_INFEKTIONEN))
    ((NAME ECHTES_SUESSHOLZ GLYCYRRHIZA_GLABRA)(VIREN INFLUENZA SARS_COV HRSV PARAINFLUENZA JAPANISCHE_ENZEPHALITIS TICK_BORNE_ENCEPHALITIS WEST_NILE_ENZEPHALITIS GELBFIEBER DENGUE PNEUMONIE INFEKTIOESE_BRONCHITIS ENTEROVIREN ROTAVIRUS ADENOVIREN COXSACKIE_VIRUS NEWCASTLE_INFEKTION VACCINIAVIRUS STOMATITIS_VESICULARIS HIV CYTOMEGALOVIRUS HERPES_SIMPLEX HEPATITIS_A HEPATITIS_B HEPATITIS_C HEPATITIS_D HEPATITIS_E WINDPOCKEN EPSTEIN_BARR_VIREN POLIOVIRUS MASERN CHANDIPURA PSEUDORABIES VOVINE_IMMUNODEFICIENCY MURINE_RETROVIRUS PRRS_VIREN )(EIGENSCHAFTEN ANTIVIRAL NEBENNIERENRINDE_STIMULANS NEBENNIERE_TONIK SCHMERZSTILLEND ANTIBAKTERIELL KREBSHEMMEND ANTITUMORMITTEL ANTIHAEMOLYTISCH ANTIHYPERGLYKAEMISCH ENTZUENDUNGSHEMMEND ANTIOXIDATIONS KRAMPFLOESEND ANTISTRESSIVUM ANTITUSSIVUM GEGEN_MAGENGESCHWUERE KARDIOPROTEKTIV ABFUEHRMITTEL OESTROGENE SCHLEIMLOESEND HEMMSTOFF_DER_MAGENSEKRETION HEPATOPROTEKTIV IMMUNSTIMULIEREND ABFUEHRMITTEL SCHLEIMHAUTSCHUETZEND STRAHLENSCHUTZ MUSKELENTSPANNER STIMULANS_BAUCHSPEICHELDRUESE SYNERGIST STIMULANS_THYMUSDRUESE TYROSINASE_HEMMER XANTHIN_OXIDASE_HEMMER)(VERRINGERN SCHMERZ MUND_BAKTERIELLEN_INFEKTIONEN VIRALEN_INFEKTIONEN KRAMPFANFALL GESCHWUERBILDUNG)(VERBESSERN IMMUNFUNKTION))
    ((NAME LOMATIUM LOMATIUM) (VIREN INFLUENZA SARS_COV VIRAL_ENCEPHALITIS PNEUMONIE EPSTEIN_BARR CYTOMEGALOVIRUS HIV SHIGELLA BAKTERIELLE_INFEKTIONEN)(EIGENSCHAFTEN SCHMERZSTILLEND ANTIBAKTERIELL ANTIMYKOTISCH ANTIMIKROBIELL ANTISEPTISCH KRAMPFLOESEND ANTIVIRAL SCHLEIMLOESEND SCHLEIMHAUT_TONIK)(VERRINGERN KRAMPFANFALL SCHMERZ VIRALEN_INFEKTIONEN BAKTERIELLEN_INFEKTIONEN))
    ((NAME DURCHWACHSENER_WASSERDOST EUPATORIUM_PERFOLIATUM)(VIREN INFLUENZA MALARIA DENGUE)(EIGENSCHAFTEN SCHMERZSTILLEND ANTIBAKTERIELL ENTZUENDUNGSHEMMEND ZYTOTOXISCH SCHWEISSTREIBEND BRECHMITTEL FIEBERSENKEND BITTER_DEN_MAGEN IMMUNSTIMULIEREND SCHLEIMHAUT_TONIK BLUTSTILLEND GLATTER_MUSKEL_ENTSPANNEND)(VERRINGERN VIRALEN_INFEKTIONEN FIEBER SCHMERZ)(VERBESSERN SCHLEIMHAUT BLUTKREISLAUF SCHWITZEN))
    ((NAME AMERIKANISCHE_SAECKELBLUME CEANOTHUS_AMERICANUS) (VIREN INFLUENZA)(EIGENSCHAFTEN LYMPHSYSTEMS_STIMULANS LYMPHSYSTEM_TONIK BLUTGERINNUNGSMITTEL)(VERRINGERN ENTZUENDUNGEN)(VERBESSERN LYMPHSYSTEMS BLUTKREISLAUF))
    ((NAME ROSENWURZ RHODIOLA_ROSEA) (VIREN IFLUENZA HEPATITIS_C COXSACKIE_VIRUS JAPANISCHE_ENZEPHALITIS ENTEROVIREN STAPHYLOCOCCUS_AUREUS BACILLUS_SUBTILIS TUBERKELBAZILLUS E_COLI)(EIGENSCHAFTEN ADAPTOGEN NEBENNIEREPROTEKTIV ANTI_KREBS ANTIDEPRESSIVUM GEGEN_MUEDIGKEIT ANTIOXIDATIONS ANTISTRESSIVUM KARDIOTONISCH ENDOKRINES_TONIK ERGOGEN HIPPOCAMPUS_SCHUTZMITTEL HIPPOCAMPUS_TONIK HYPOXIE_ANTAGONIST IMMUNSTAERKER MITOCHONDRIEN_STAERKEN MUSKELN_STIMULANS NERVENSYSTEMS_TONIK NERVENPROTEKTIV SYNERGIST)(VERRINGERN STRESS DEPRESSION FATIGUE ERSCHOEPFUNG GEHIRNNEBEL)(VERBESSERN MITOCHONDRIEN MUSKELN NERVENSYSTEMS ENDOKRINES IMMUNFUNKTION))
 ))
 
;DEKLARATION DER EINGANGSVARIABLEN
(DEFVAR PLANTNAME)
(DEFVAR VIRENNAME)
(DEFVAR ZIELNAME)
(DEFVAR ZIELOPT)
(DEFVAR EIGENSCHAFTENNAME)
(DEFVAR COMMAND)
(DEFVAR INPUT)

;FUNCTION SORTER (RETURNS LISTE IN ALPHABETISCHER REIHENFOLGE)
(DEFUN SORTER(LIS)
	(SORT LIS #'STRING<=) 
)

;FUNCTION PLANTSEARCH (RETURNS LISTE VON VIREN UND EIGENSCHAFTEN, ODER LISTE ALLER VERFUEGBAREN PFLANZEN ODER FEHLERMELDUNG)
(DEFUN PLANTSEARCH(PLANTS )
    (FORMAT T "~%TIP: WENN SIE MEHRERE WOERTER SCHREIBEN, VERWENDEN SIE _ BSP: BAIKAL_HELMKRAUT")
    (FORMAT T "~%TIP: SUCHEN SIE NACH *, UM EINE VOLLSTAENDIGE LISTE DER VERFUEGBAREN PFLANZEN ZU ERHALTEN")
    (FORMAT T "~%NAMEN DER PFLANZE EINGEBEN: ")
    (SETQ PLANTNAME (READ))
    (COND ((EQUAL PLANTNAME '* ) (PRINTALL 'NAME PLANTS) )
          (T (PRINTPLANT 'NAME PLANTNAME PLANTS)))
)

;FUNCTION VIRENSEARCH (RETURNS LISTE VON PFLANZEN, DIE DIE VIREN BEHANDELN KOENNEN, ODER EINE LISTE ALLER VERFUEGBAREN VIREN ODER EINE FEHLERMELDUNG).
(DEFUN VIRENSEARCH(PLANTS) 
    (FORMAT T "~%TIPP: WENN SIE MEHRERE WOERTER SCHREIBEN, VERWENDEN SIE '_' BSP: HERPES_SIMPLEX")
    (FORMAT T "~%TIPP: SUCHEN SIE NACH *, UM EINE VOLLSTAENDIGE LISTE ALLER VERFUEGBAREN VIREN ZU ERHALTEN")
    (FORMAT T "~%NAME DIE VIREN EINGEBEN: ")
    (SETQ VIRENNAME (READ))
    (COND ((EQUAL VIRENNAME '*) (PRINTALL 'VIREN PLANTS))
		(T (PRINTVIREN VIRENNAME PLANTS))
))

;FUNCTION EIGENSCHAFTENSEARCH (RETURNS LISTEN VON PFLANZEN, DIE DIE THERAPIEZIELE ERHALTEN KOENNEN, ODER EINE LISTE ALLER VERFUEGBAREN THERAPIEZIELE ODER EINE FEHLERMELDUNG).
(DEFUN EIGENSCHAFTENSEARCH(PLANTS)
  (FORMAT T "~%TIPP: WENN SIE MEHRERE WOERTER SCHREIBEN, VERWENDEN SIE '_' BSP: STAERKEND_DAS_IMMUNSYSTEM")
  (FORMAT T "~%TIPP: SUCHEN SIE NACH *, UM EINE VOLLSTAENDIGE LISTE ALLER VERFUEGBAREN EIGENSCHAFTEN ZU ERHALTEN")
  (FORMAT T "~%NAME DIE EIGENSCHAFT EINGEBEN: ")
  (SETQ EIGENSCHAFTENNAME (READ))
  (COND((EQUAL EIGENSCHAFTENNAME '*) (PRINTALL 'EIGENSCHAFTEN PLANTS))
      (T (PRINTEIGENSCHAFTEN EIGENSCHAFTENNAME PLANTS))     
))

;FUNCTION ZIELSEARCH (RETURNS LISTEN VON PFLANZEN, DIE DIE THERAPIEZIELE ERHALTEN KOENNEN, ODER EINE LISTE ALLER VERFUEGBAREN THERAPIEZIELE ODER EINE FEHLERMELDUNG).
(DEFUN ZIELSEARCH(PLANTS)
	(FORMAT T "~%~%BEFEHLE:~%1. VERRINGERUNG~%2. VERBESSERUNG~%3. ALLE THERAPIEZIELE SEHEN")   
	(FORMAT T "~%BITTE GEBEN SIE AN, OB DAS ZIEL EINE VERBESSERUNG ODER EINE VERRINGERUNG IST: ")
	(SETQ ZIELOPT (READ))
	(COND((EQUAL ZIELOPT '1) (FORMAT T "~%TIPP: WENN SIE MEHRERE WOERTER SCHREIBEN, VERWENDEN SIE '_' BSP: VIRALEN_INFEKTIONEN~%WAS MOECHTEN SIE VERRINGERN: ") (SETQ ZIELNAME (READ)) (PRINTZIEL 'VERRINGERN ZIELNAME PLANTS))
        ((EQUAL ZIELOPT '2) (FORMAT T "~%TIPP: WENN SIE MEHRERE WOERTER SCHREIBEN, VERWENDEN SIE '_' BSP: VIRALEN_INFEKTIONEN~%WAS MOECHTEN SIE VERBESSERN: ") (SETQ ZIELNAME (READ)) (PRINTZIEL 'VERBESSERN ZIELNAME PLANTS))
        ((EQUAL ZIELOPT '3) (PRINTALL 'ZIELE PLANTS))
        (T (FORMAT T "DAS IST KEIN GUELTIGER BEFEHL, BITTE VERSUCHEN SIE NOCHMAL~%") (ZIELSEARCH PLANTS))     
))

;FUNCTION PRINTPLANT (SUCHE NACH DER BENANNTEN PFLANZE AUS ALLEN VERFUEGBAREN PFLANZEN UND RUECKGABE DER INFORMATIONEN UEBER DIESE PFLANZE).
(DEFUN PRINTPLANT(TYPE NAME LIS)
    (COND ((NULL LIS) (FORMAT T "~%~A WIRD ALS PFLANZENNAME NICHT GEFUNDEN~%" NAME))
     ((FIND NAME (ASSOC TYPE (CAR LIS))) (FORMAT T "~%~%~a (WISSENSCHAFTLICHER NAME ~a)~%~%HILFT BEI DEN FOLGENDEN VIREN:~%~{~a~^, ~}~%~%HAT DIE FOLGENDEN EIGENSCHAFTEN:~%~{~a~^, ~}~%~%UND ERFUELLT AUCH DIESE THERAPEUTISCHEN ZIELE~%VERBESSERN: ~{~a~^, ~}~%VERRINGERN: ~{~a~^, ~}~%" (SECOND(ASSOC 'NAME (CAR LIS))) (THIRD(ASSOC 'NAME (CAR LIS))) (SORTER (CDR(ASSOC 'VIREN (CAR LIS)))) (SORTER (CDR(ASSOC 'EIGENSCHAFTEN (CAR LIS))))(SORTER (CDR(ASSOC 'VERBESSERN (CAR LIS))))(SORTER (CDR(ASSOC 'VERRINGERN (CAR LIS))))     ))
     (T (FORMAT T "~%NAME: ~A LIST: ~A " NAME (ASSOC 'NAME (CAR LIS)) )(PRINTPLANT TYPE NAME (CDR LIS)))
))

;FUNCTION PRINTZIEL (SUCHE NACH DEM GENANNTEN ZIEL IN ALLEN PFLANZEN UND RUECKGABE DER LISTE ALLER PFLANZEN MIT DIESEM ZIEL).
(DEFUN PRINTZIEL (TYPE NAME LIS &OPTIONAL RESULT)
    (COND((AND (NULL LIS) (NOT (NULL RESULT))) (FORMAT T "~%~a ~a IST BEI FOLGENDEN PFLANZEN THERAPIEZIEL GEFUNDEN:~%~{~a~^, ~}~%" NAME TYPE RESULT))
        ((NULL LIS) (FORMAT T "~%~A ~A IST IN KEINEM PFLANZLICHEN THERAPIEZIEL GEFUNDEN~%" NAME TYPE))
        ((FIND NAME (ASSOC TYPE (CAR LIS))) (PRINTZIEL TYPE NAME (CDR LIS) (NCONC RESULT (LIST(SECOND(CAAR LIS))))))
        (T (PRINTZIEL TYPE NAME (CDR LIS) RESULT ))  
))

;FUNCTION PRINTEIGENSCHAFTEN (SUCHE NACH DEM GENANNTEN EIGENSCHAFT IN ALLEN PFLANZEN UND RUECKGABE DER LISTE ALLER PFLANZEN MIT DIESEM EIGENSCHAFT).
(DEFUN PRINTEIGENSCHAFTEN(NAME LIS &OPTIONAL RESULT)
      (COND((AND (NULL LIS) (NOT (NULL RESULT))) (FORMAT T  "~%~%DIE  EIGENSCHAFT KANN IN DEN FOLGENDEN PFLANZEN GEFUNDEN WERDEN: ~%~{~a~^, ~}~%" (SORTER RESULT)))
      ((NULL LIS) (FORMAT T "~%~%KEINE EIGENSCHAFT MIT DIESEM NAMEN GEFUNDEN~%"))
      ((FIND NAME (ASSOC 'EIGENSCHAFTEN (CAR LIS))) (PRINTEIGENSCHAFTEN NAME (CDR LIS) (NCONC RESULT (LIST (SECOND(CAAR LIS))))))
      (T (PRINTEIGENSCHAFTEN NAME (CDR LIS) RESULT)))       
)

;FUNKTION PRINTVIREN (SUCHE NACH DEN GENANNTEN VIREN IN ALLEN PFLANZEN UND RUECKGABE DER LISTE ALLER PFLANZEN, DIE DIESE VIREN BEHANDELN).
(DEFUN PRINTVIREN(NAME LIS &OPTIONAL RESULT)
      (COND((AND (NULL LIS) (NOT (NULL RESULT))) (FORMAT T "~%~%DIE VIREN KANN BEHANDELT WERDEN MIT: ~%~{~a~^, ~}~%" (SORTER RESULT)))
      ((NULL LIS) (FORMAT T "~%~%KEINE VIREN MIT DIESEM NAMEN GEFUNDEN~%"))
      ((FIND NAME (ASSOC 'VIREN (CAR LIS))) (PRINTVIREN NAME (CDR LIS) (NCONC RESULT (LIST (SECOND(CAAR LIS))))))
      (T (PRINTVIREN NAME (CDR LIS) RESULT)))       
)

;FUNKTION PRINTALL (SUCHE NACH ALLEN VERFUEGBAREN VIREN, EIGENSCHAFTEN ODER ZIELE).
(DEFUN PRINTALL(TYPE LIS &OPTIONAL RESULT RESULT2) 
    (COND((AND (NULL LIS) (EQL TYPE 'ZIELE)) (FORMAT T "~%~%ALLE VERFUEGBAREN THERAPIEZIELE:~%~%VERRINGERN: ~{~a~^, ~}~%~%VERBESSERN: ~{~a~^, ~}~%" (SORTER(REMOVE-DUPLICATES RESULT)) (SORTER(REMOVE-DUPLICATES RESULT2)))                           )
		((NULL LIS) (FORMAT T "~%~%ALLE VERFUEGBAREN ~a:~%~{~a~^, ~}~%" TYPE (SORTER(REMOVE-DUPLICATES RESULT))))
        ((EQL TYPE 'ZIELE)  (PRINTALL TYPE (CDR LIS)  (NCONC (CDR (ASSOC 'VERRINGERN (CAR LIS))) RESULT) (NCONC (CDR (ASSOC 'VERBESSERN (CAR LIS))) RESULT2)))    
        (T (PRINTALL TYPE (CDR LIS)  (NCONC (CDR (ASSOC TYPE (CAR LIS))) RESULT)))
))

;FUNKTION START (FRAGT DEN BENUTZER, WAS GESUCHT WERDEN SOLL UND RUFT DIE ENTSPRECHENDE FUNKTION AUF).
(DEFUN START()
	(FORMAT T "WILLKOMMEN BEI DER LISP-BASIERTEN SUCHMASCHINE VON 'PFLANZLICHE VIRENKILLER'")
	(FORMAT T "~%BEFEHLE:")   
	(FORMAT T "~%1. SUCHE UEBER EINE PFLANZE")
	(FORMAT T "~%2. SUCHE NACH EINEM EIGENSCHAFTEN")
	(FORMAT T "~%3. SUCHE UEBER EINE VIREN")
	(FORMAT T "~%4. SUCHE UEBER EINE THERAPIEZIELE")
	(FORMAT T "~%5. LINK ZUM BUCH")
	(FORMAT T "~%6. LINK ZUM QUELLEN")
	(FORMAT T "~%WAS MOECHTEN SIE SUCHEN: ")
	(SETQ INPUT (READ))   
	(COND ((EQL INPUT '1) (PLANTSEARCH PLANTS))
        ((EQL INPUT '2)  (EIGENSCHAFTENSEARCH PLANTS) )
        ((EQL INPUT '3)  (VIRENSEARCH PLANTS))
	    ((EQL INPUT '4)  (ZIELSEARCH PLANTS))
        ((EQL INPUT '5)  (FORMAT T "~%DAS BUCH IST UNTER FOLGENDEM LINK ERREICHBAR~%https://drive.google.com/file/d/1mt6OVunbI6ekFmtH1AFps8UKo6whAt5e/view?usp=sharing~%")) 
	    ((EQL INPUT '6)  (FORMAT T "~%DIE QUELLEN SIND UNTER FOLGENDEM LINK ZU FINDEN~%https://drive.google.com/file/d/17CjaGVfXCbwBGRYtJun72QhaRCG0j6Cs/view?usp=sharing~%"))	  
        (T (FORMAT T "DAS IST KEIN GUELTIGER BEFEHL, BITTE VERSUCHEN SIE NOCHMAL~%") (START))  
))

(WRITE(START))

[ - ] Show input
Absolute running time: 0.14 sec, cpu time: 0.02 sec, memory peak: 9 Mb, absolute service time: 0,19 sec