*
  Мысли   Галерея   Проекты   Тексты  
  Мысли   Галерея   Проекты   Тексты  
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 привлекательную расценки клиент сумеет непременно на указанному веб страничке!
Jefferytug от 2021-04-03 22:22:39:
Установка высококачественного кондиционера - ответсвенность общего климата в вашем квартире в жаркое время и даже в прохладу, следовательно выбор данного системы важно быть проконсультироваться со консультантами кондиционерного Kondicioneri.Kz профиля, что укажут желанный вариант кондиционера под вашего здание из зависимости от пространства и личных заданий. На периоде 5 годов проверенная предприятие по установке сплит-систем Bzone climate кондиционеры в казахстане любого производителя также характеристик советует покупателям принять детальную индиниринг касательно подбора кондиционера из лучшей стоимости. Купить сплит-систему намного легче, чем покупатель думаете! Пользователю следует всего напросто указать номерные контактные данные на данном онлайн-сайте, после https://kondicioneri.kz/ проверенные менеджеры свяжутся из по номеру, что бы обсудить желанный вид плюс детали доставки, следовательно, наши сотрудники подписываем договор из установленным времени к тому же реализуем быструю привоз купленного обновленного кондиционера из работами по монтажа. Приобрести намеренный чиллер в приемлемой прайсе и оформить привоз в указанную регион страны Вы сумеет из наших рук - нашей квалифицировнаный фирмы Bzone климат!