*
  Мысли   Галерея   Проекты   Тексты  
  Мысли   Галерея   Проекты   Тексты  
Giver: Яйца!  (2008-12-25 07:20:27)

Вензапно обнаружилось пасхальное яйцо в IDE схемы. Вместо привычного синего прогрессбара получилась вот такая картинка. Причино, по всей видимости, послужила системная дата. Нужно схему запускать чаще, хотя бы ради того что найти в какие еще дни можно увидеть что-нибудь подобное.

А в схему я попал вот зачем — нужно было реализовать сортировку, но не протсыми человеческими методами, а таким, до которого я не смог дойти своим умом, но он вполне рабочий, можете использовать в своих проектах (=. Вот код, да поймут понимающие:

(define (show . z) (map display z) (newline))
(define (nth l n) (if (= n 0) (car l) (nth (cdr l) (- n 1))))
(define (rand ls) (nth ls (floor (* (length ls) (random)))))

(define (shuffle ls)
    (define (iter tail head) (if (null? tail) head
            (let ((s (rand tail))) (iter (remove s tail) (cons s head)))))
    (iter ls '()))

(define (sorted? ls)
    (define (iter n ls)
        (if (null? ls) #t (if (< (car ls) n) #f (iter (car ls) (cdr ls)))))
    (iter (car ls) (cdr ls)))

(define (randsort ls)
    (define (iter n)
      (let ((l (shuffle ls)))   
        (show n " " l)
        (if (sorted? l) l (iter (+ n 1)))))
  (iter 1))

(show (randsort '(2 1 3)))

Oleg от 2009-01-17 13:42:13:
Добавь возможность коментировать тексты пожалуйста. Перечитал сегодня - очень понравилось. Тебе стоит писать. И у меня там идейка одна есть. Но для нее ты нужен.
AllenJuisa от 2020-11-18 21:29:37:
Welcome to the world of adult Dating loveawake.ru
от 2020-11-21 20:10:24:
Стремись не к тому, чтобы добиться успеха, а к тому, чтобы твоя жизнь имела смысл. http://bit.do/fLc9r?h=60e3588633351fe6764a6fb4d4abe342&
от 2020-12-20 21:37:42:
?h=60e3588633351fe6764a6fb4d4abe342&
skyflykievua от 2021-03-14 16:39:25:
Почти что у произвольной персоны в современное время скачок с парашютом распологается по списке желаний, каковы определенно стоит выполнить за нашу отдых. На данный момент прыжок на https://skyfly.kiev.ua/ парашютом – считается публичным развлечение, какое обеспечивают экстрим участникам, поэтому каждый без колебаний можете продумать неожиданность для собственному близких либо независимо лично плюс запечатлеть это прыжок для внутренней воспоминании. Джампинг Клуб SkyFly тандем прыжок с парашютом предоставляет услуги осуществить джамп с парашютом в приятным прайсе плюс всяческими методами прыжка, как для необученных дебютантов, так точно собственно любителей, с целью каких полет стали любимым пристрастие. Скай флай скачков из парашютного приспособления SkyFly организует для Вас прыжок в с инструктором, полет из парашютика «крыло» или «десантном», также на онлайн сайте Вы имеет возможность купить карту-сертификат на экстрим под друзей и обязательно семье, в добавок SkyFly.Kiev.Ua по желанию купить качественную видео личного дебютного прыжка. Пропишите информацию на нашем сайте и поскорее материализуйте на жизнь определенно замечательное впечатление в вашей жизни!
irongamers от 2021-03-18 11:41:50:
Абсолютно согласен с предыдущим сообщением ----- купить вещи дота 2 https://irongamers.ru/
casinoxobzor от 2021-03-22 15:23:56:
casino-x x казино играть онлайн https://casino-x-obzor.com/
Williamneews от 2021-04-01 03:58:22:
Всяческие проблемы, стартуя ото семейных разногласий Sud-Jurist.Ru затем заключая важными возможностями из ДТП и имуществом часто разрешаются согласно помощью распоряжений и формального участия. Как только следуют типичные условия, и жертва никак не знает как сориентироваться, именно как мгновенно также верно порешать определенный спор, к вам на впоможение поспешит свободная формальная беседа по веб сайте вопрос юристу онлайн без телефона . Презентованный источник - и есть ваш личный консультант в онлайн формате по любому открытого вопросу, какой обхватывает вашей положение, близких, бизнеса также других сторон. На данном веб сайте пользователь моментально может перейти в соответственную рубрику, какая соответствует его интерес: наследство, угон автомобиля, любовные или кооперативный споры, покупка жилья или магазинных https://sud-jurist.ru точек, подрядные вопросы, права покупателей, официальное трудоустройство и иные части, какие бывают в текущего жизни. Наша команда посодействует для Вас правильно зарегистрировать справки, собрать завещание, уполномочия, прошение, произвести возмещения, сделать документ и многое иное, то что решит проблему для Вас утвердить законные основание в государтсвенном масштабе просто собственно в любое время!
DerekDip от 2021-04-03 05:28:48:
Раз юзер уже длительное время желали найти перспективную стезю к тому же стать промышлять приличные денежные средства, но вовсе не смогли попасть из направлением? Тогда специалисты рекомендуем https://easytender.kz/kurs-rus/ Вам постигнуть силу потенциальных удачи на тендерах, какие нынче активно принимают эффективность к тоум же плодят большие суммы пользователям. Именно для то, что необходимо делать новое занятие эффективно также в момент выйти на желаемый оплату специалисты данной области привлекаем читателей пройти основательный курс специальности, здесь спикер Easy Тендер сообщит Вами различными мелочами требований к претенденту в сфере сбыта и подготовит действенно осуществлять торговые схемы. Именно на нашем источнике обучение тендерам с нуля к вашему вниманию пару направлений, из какие Вы имеет возможность выбрать под личные вкусы основной, в котором решили учиться. Именно на нашем курсе пользователь будет использовать комплексный формат от менторов, те что получили значительный точку чистой прибыли также компетенции на тендерных кейсов, законоведческое и фактическое сопровождение, консультацию ото экспертов также множество работающих задач, которые продемонстрируют как Вам получить огромных перспективы. Купить участие за Easytender.Kz привлекательную расценки клиент сумеет непременно на указанному веб страничке!
AnthonyDeect от 2021-07-22 02:23:04:
Я считаю, что Вы не правы. Я уверен. Предлагаю это обсудить. Пишите мне в PM. minecraft quiz official noob test