Поиск простых чисел на ЮТ-88
Откомпилировал для ЮТа программу поиска простых чисел, на языке СТЕПЛЕР.
Вот исходник:
Код:
$(6)(3)
{next}
$(4)(1,6$^1+@,6$^1+)
{nl}
$(4)(4$^1+)
#(6$^4$%)<next>
#(4$^5$-|)<nl>
$(2)(6$)
#<next>
В архиве программа, грузится и запускается на адрес $C400. Программа постоянно ищет простые числа методом перебора делителей, как только находит простое число, так сразу выводит его на экран.
Можно использовать как тест процессора или как скринсейвер :)
http://yadi.sk/d/hKbWJo24SHyL6
Сейчас допиливаю компилятор чтоб во всю ЮТ использовал, можно тогда будет для ЮТа писать проги на ЯП высокого уровня.
