1. Куча / Говнокод #1195

    +146

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    (
 define
 (
  lazy-reader
  reader
 )
 (
  lambda
  (
   port
  )
  (
   make-lazy-list1
   (
    lambda
    (
    )
    
    (
     let
     (
      (
       it
       (
        reader
        port
       )
      )
     )
     (
      if
      (
       eof-object?
       it
      )
      '
      (
      )
      it
     )
    )
   )
  )
 )
)

    Идиотское форматирование в Scheme

    Запостил: guest, 12 Июня 2009

    Комментарии (1) RSS

    Добавить комментарий