UI zadanie v LISP

[buhehe]

nemate nejaky tutorial ako programovat v lispe ? niekto totiz nemal funkcionaln eprogramovanie ...

neboj ti co mali poculi o lispe asi tolko co ty.....teda aspon ja.....na FlP bol prolog aj to len asi 3 prednasky na konci a na skuske vobec nebol cize neviem kto by sa ho ucil....

[buhehe]

neviem...mozno vam pomoze aspon zistit co je lisp

http://www.notam02.no/internt/cm-sys/cm-2.2/doc/clt.html

[buhehe]

kto pouziva ufasoft lisp???
jak sa v tom kodi do pimpilimpimpone kua neviem v tom nic urobit len ked do terminalu napisem nieco typu (+ 2 3) alebo (setf a 5) a pod...
ked si dam novy subor a dam ho prekompilovat a spustit furt dajaka chyba sa vypisuje a to mam stiahnuty skusobny zdrojak...(mal by ist ked sa nanho pozriem vedeckym okom  )
nexapacka

[MKI]

nech sa paci vysledok pre najdenie najvacsieho z troch cisel :

(defun najdi (x y z)
    (if (and (>= x y) (>= x z))
        x
        (if (and (>= y x) (>= y z))
            y
            (if (and (>= z x) (>= z y))
                z
            )   
        )
     )
)

updated: tento zdrojak si davam patentovat

[buhehe]

som zvedavy jak to budu hodnotit ked budeme mat vsetci tie iste fcie....a pri zdrojaku rozsahu maximalne 10 riadkov si to bude lahke vsimnut...

[Ing. nemtom]

ja si davam patentovat algoritmus:D da sa pozret na fore ze som to prvy napisal:D

[buhehe]

ja si davam patentovat algoritmus:D da sa pozret na fore ze som to prvy napisal:D

hh tak ja tiez napisem a potom dam vascakovi link ze ked neveri nech sa presvedci...:D:D

[MKI]

ja si davam patentovat algoritmus:D da sa pozret na fore ze som to prvy napisal:D

ty si hovoril ze mas iny dlhsi

[Ing. nemtom]

kazdy prvok porovnas s ostatnymi dvoma a ked ti vyde ze je vacsi aj od jedneho aj od druheho tak mas vysledok, myslim ze v tomto zadani nieje co riesit, tak isto pri minimalnom

kde?

[MKI]

ale no .. ved to ma 13 riadkov a z toho 5 riadkov su iba zatvorky.. sak to je uplne easy 

moj ma len 11

[Ing. nemtom]

aha puf, ja ze to mne pises ked mna si quotoval

[MKI]

aha puf, ja ze to mne pises ked mna si quotoval

aha to nesi ty :DD

to je jedno patent mam ako prvy ja

[Ing. nemtom]

:D si jak M$

podla vas aj to je zle ked si spravim vlastny length?

[pUf]

ale ja som oficialne prvy ktory to urobil a nepouzil som ani AND ani IF .. pouzil som iba oldschool lisp prikazy resp 1 prikaz a navyse som dokazal vypracovat aj ine zadanie s retazcami na 7 riadkov z toho 2 riadky su zatvorky

btw teda je mozne vytvorit viac algoritmov, ktore sa lisia podstatne alebo aj menej podstatne ale lisia sa

[kane77]

:D si jak M$

podla vas aj to je zle ked si spravim vlastny length?

to nemoze byt zle... ved je pisane ze nemozes pouzivat standardnu funkciu lispu.. ak si napises vlastnu tak je to ok.. ale aby nepindali tak si ju nazvi inak... napriklad funkcia nemtom..

[Ing. nemtom]

ee, uz mam riesenie, vdaka pufovi, je to na 7 riadkov a je to genialne:D

[MKI]

ja som ten moj upravil aby isiel rekurzivne

[kane77]

ee, uz mam riesenie, vdaka pufovi, je to na 7 riadkov a je to genialne:D

ja mam na 5 a je to pologenialne a rekurzivne..

[Ing. nemtom]

nice, ja svoje viem dat do 1:D:D:D

[MKI]

V prípade, že existuje štandardná LISP-ovská funkcia, riešiaca Váš problém - NEPOUŽITE JU !!! (napr. funkcie LENGTH, LAST)

if a anad pouzit mozem nie ?

[m!x41]

no snad hej...?! sak bez tooh to je somarina... netvrdim ze sa to mozno neda zrobit, ale naco si hlavku trapit???

[buhehe]

skuste napisat reverse.....bo ja mam taky priklad ze sa da na 1 riadok zapisat s reversom

[kane77]

nice, ja svoje viem dat do 1:D:D:D

hej.. aj ked poviem ze moj program ma 500 riadkov neznamena ze na kazdom daco je 

[kane77]

V prípade, že existuje štandardná LISP-ovská funkcia, riešiaca Váš problém - NEPOUŽITE JU !!! (napr. funkcie LENGTH, LAST)

if a anad pouzit mozem nie ?

ani if, ani cdr a car nesmies pouzit.. vlastne nemozes pouzivat ziadnu lisp funkciu a musis si napisat vlastny jazyk aj s interpreterom.. len nam to nechceli povedat priamo ta dali take easy priklady... 

[m!x41]

hej, ale ved tam sa pise, ze...

V prípade, že existuje štandardná LISP-ovská funkcia, riešiaca Váš problém - NEPOUŽITE JU !!!

... to znamena, ze nemam pouzit fciu "MAX" (v mojom pripade), ale nikde sa tam nepise, ze nemozem pouzit "IF, AND,..." to potom ani "DEFUN" nemozem pouzit??? Nemam si potom nahodou podla nich stvorit vlastny programovaci jazyk??? sak ked uz vlastne file-systemy na nas usili tak preco nie aj toto??? ta ich vynaliezavost, aby nas vyhodili z FEI fakt uz nepozna hranice...