VPF::язык HQ9+ и его дальнейшее развитие

Zloxa

Дата 8.12.2009, 18:27 (ссылка)

(голосов:3)

Загрузка ...

Чо?

Профиль
Группа: Завсегдатай
Сообщений: 3473
Регистрация: 12.9.2008

мой небольшой вклад в ваше дело.
реализация интерпретатора на SQL

Код


Connected to Oracle Database 10g Enterprise Edition Release 10.2.0.3.0 
Connected as common
 
var programm varchar2;
exec :programm := 'HQ9+';
 
PL/SQL procedure successfully completed
programm
---------
HQ9+
select
 sum(decode(cmd,'+',1,0)) over (order by s.rn) some_counter
 ,coalesce(decode(cmd,'H','Hello World')
           ,decode(cmd,'Q', code)
           ,bob
           ,decode(cmd,'+',null,1/0)
          )
   output
from (
  select
    level rn
    ,substr(:programm,level,1) cmd
    ,:programm code
  from dual
  connect by substr(:programm,level,1) is not null
 ) s
left join (select level rn,100 - level || ' Bottles of Beer on the Wall' bob from dual connect by level < 100) b
       on cmd = '9'
order by s.rn, b.rn;
 
SOME_COUNTER OUTPUT
------------ --------------------------------------------------------------------------------
           0 Hello World
           0 HQ9+
           0 99 Bottles of Beer on the Wall
           0 98 Bottles of Beer on the Wall
           0 97 Bottles of Beer on the Wall
.
.
.
           0 4 Bottles of Beer on the Wall
           0 3 Bottles of Beer on the Wall
           0 2 Bottles of Beer on the Wall
           0 1 Bottles of Beer on the Wall
           1 
 
102 rows selected
programm
---------
HQ9+

--------------------

Достоверно известно, что 89% людей доверяют статистике взятой с потолка smile

UniBomb (Online)

Дата 6.9.2010, 17:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Награды: 1

Профиль
Группа: Завсегдатай
Сообщений: 1754
Регистрация: 24.10.2006
Где: Санкт-Петербург

Ха-ха, вы думали я забросил это дело? Нет! Я всего-лишь немного пересмотрел систему ценностей и решил применить несколько иной подход.

В общем как бы то ни было, вот вам исходник:

Код


lexx = 'h'
counter = [0]
index = 0

loop do
    print "> "
    tokens = gets.chomp
    break if tokens == ''
    
    lex = tokens.split
    
    for lexx in lex do
    
        case lexx
            when "h"
                puts 'Hello world!'
            when "q"
                puts tokens
            when "9"
                101.times do |i|
                    if i < 100 then
                        puts "#{100-i} bottles of beer"
                        puts "you take one down, pass it around"
                    else
                        puts "no more bottles of beer on the wall."
                    end
                end
            when "+"
                counter[index] += 1
            when "-"
                counter[index] -= 1
            when "d"
                index -= 1
                if index < 0 then
                    inde = 0
                    puts "Error: out of range index"
                end
            when "i"
                index += 1
                if counter.length == index then
                    counter << 0
                end
            when "r"
                puts counter[index]
            else
                puts "Error: Unknown token \'#{lexx} \'"
        end
    
    end
end

Интерпритатор написан на ruby. И кстате - почему нет его подсветки. В общем о нововведениях можно рассказывать часами, небольшая программа скажет всё сама за себя:

Код


+ + + + + + + r + + + i + + + r + + h d q r 9 - r

--------------------

recaptcha is great

diadiavova

Дата 6.9.2010, 17:18 (ссылка)

(голосов:3)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Цитата(UniBomb @ 6.9.2010, 18:15

)

Ха-ха, вы думали я забросил это дело?

Ну не то чтобы думали...скорее надеялись smile

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

UniBomb (Online)

Дата 6.9.2010, 18:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Награды: 1

Профиль
Группа: Завсегдатай
Сообщений: 1754
Регистрация: 24.10.2006
Где: Санкт-Петербург

Цитата(diadiavova @ 6.9.2010, 18:18

)

скорее надеялись

--------------------

recaptcha is great

Zloxa

Дата 16.3.2012, 12:29 (ссылка)

(нет голосов)

Загрузка ...

Чо?

Профиль
Группа: Завсегдатай
Сообщений: 3473
Регистрация: 12.9.2008

Цитата(UniBomb @ 7.12.2009, 13:13

)

. Деление на ноль вызывает неопределённость, а вот бесконечность получается при делении на бесконечно малую величину.

Мне кажется деление на ноль лучше реализовать выводом фразы "стою себе, делю" в количестве, равном значению счетчика. Тем самым мы введем в язык новый функционал и потдержим старый. Тогда можно будет депрекатнуть команду "9" и рекомендовать использовать вместо нее команду "0"

Это сообщение отредактировал(а) Zloxa - 16.3.2012, 12:30

--------------------

Достоверно известно, что 89% людей доверяют статистике взятой с потолка smile

LSD

Дата 16.3.2012, 12:36 (ссылка)

(нет голосов)

Загрузка ...

Leprechaun Software Developer

Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

Цитата(Zloxa @ 16.3.2012, 13:29

)

Нарушается обратная совместимость, в оригинале:

Цитата

Команда + увеличивает на единицу (инкрементирует) счетчик, который не имеет никакой возможности дальнейшего применения.

А тут уже появляется возможность какого-то применения.

--------------------

Disclaimer: this post contains explicit depictions of personal opinion. So, if it sounds sarcastic, don't take it seriously. If it sounds dangerous, do not try this at home or at all. And if it offends you, just don't read it.

UniBomb (Online)

Дата 17.7.2025, 19:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Награды: 1

Профиль
Группа: Завсегдатай
Сообщений: 1754
Регистрация: 24.10.2006
Где: Санкт-Петербург

Столько воды утекло со времени последнего релиза. И пусть человек еще не ступил на поверхность марса, работа над идеальным интерпритатором продолжается. И пусть уже и надеятся некому, встречайте, новый релиз. Теперь на питоне. Ура, товарищи!

Код


def interpret_hq9p(code: str):
    acc = 0
    output = []
    
    def generate_flooders_song():
        lines = []
        for n in range(99, 0, -1):
            if n == 1:
                line1 = "1 flooder writing comments in the sandbox!"
            else:
                line1 = f"{n} flooders writing comments in the sandbox!"
            
            if n == 1:
                line2 = "He went to the real world... the sandbox is empty!"
            else:
                remaining = n - 1
                if remaining == 1:
                    line2 = f"One went to the real world, {remaining} flooder remains..."
                else:
                    line2 = f"One went to the real world, {remaining} flooders remain..."
            
            lines.append(f"{line1}\n{line2}")
        
        lines.append("The forum is empty.")
        return "\n".join(lines)
    
    flooder_song = generate_flooders_song()
    
    for char in code:
        char = char.upper()
        
        if char == 'H':
            output.append("Hello, world!")
        elif char == 'Q':
            output.append(code)
        elif char == '9':
            output.append(flooder_song)
        elif char == '+':
            acc += 1

    output.append(f"Accum is {acc}")
    print("\n".join(output))

if __name__ == "__main__":
    program = input("_> ")
    interpret_hq9p(program)

--------------------

recaptcha is great

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Флейм \| Следующая тема »