Lispovská dmnc na dnešní den

15.2.2007 13:37 | Jazyky umělé i přírodní | poslední úprava: 15.2.2007 13:38

(defun heron (var poly)
  (reduce #'(lambda (l r) (+ r (* l var))) poly))

Této lambda onanie si nevšímejte. Jen mě mrzí, že se to nevejde do haiku. Nedá se to v nějakém jazyku nacpat do haiku?

       

Komentáře

[Marek Bernát]

(defun ones (l n)
  (if (zerop n) l (ones (append l '(1)) (- n 1))))

(heron 2 (ones nil 5))

Zátvorky v haiku? To je už trochu sadomaso

[Kyosuke]

Jedno lispovské haiku znám, je takové reklamní.

(unless (equalp
         (lisp-implementation-type)
         "SBCL") (quit))

[Marek Bernát]

Skúsim ho vylepšiť

(アンリス (イクオルプ
           (リスプ-イムプレンテイション-タイプ)
           "スブツル") (キト))

[Tom.š Ze.le.in]

[ot] #' už (od dob Ansi) není potřeba - lambda je makro

Možná by to šlo zhaikuovatět helpery typu compose a curry...

btw, něco (až na jméno) identického jsem psal předevčírem, když jsem se pokoušel pochopit partial evaluation :)

[Kyosuke]

Jsem precisní a konservativní tradicionalista.