Insufficient bloat

Mar 03, 2009 23:43

Из c.l.lisp:

William James wrote:

> david wrote:

> >
> > (defun get-four-unique-random-numbers ()
> > (loop
> > :with results = '()
> > :for alea = (random 64)
> > :while (< (length results) 4)
> > :do (pushnew alea results)
> > :finally (return results)))

> Insufficient bloat. Make it

> (defun find-and-return-four-unique-random-numbers-between-zero-and-sixty-four

* * *

William James wrote:

> find-and-return-four-unique-random-numbers-between-zero-and-sixty-four-
> inclusive-and-exclusive-respectively

* * *

Kojak wrote:

> Be nice with your computer...

> find-and-return-four-unique-random-numbers-between-zero-and-
> sixty-four-inclusive-and-exclusive-respectively-PLEASE

Ну да, как-то так, зато документировать ничего не надо =)

Да, чуть не забыл. Я же теперь гуру Weblocks. Спрашивайте меня вопросы :)

bloat, lisp, weblocks, rofl

Previous post Next post
Up