Лингвофорум

654₁₆ (1620)
500₁₈ (1620)

Цитата: Валентин Н от июня 19, 2011, 13:18
Как вы так подбираете?

  a:=1588;
  repeat
    i:=1; p:='';
    repeat
      ++i;
      s:=str(a,0,0,i);
      if_not length(truncate_char(s,ascii(s))) then goto nice; end;
      if length(s)≥4 then
        if s=reverse(s) then goto nice; end;
        if left(s,half(length(s)))=right(s,succ(half(length(s)))) then goto nice; end;
        if_not length(replace(s,left(s,2),'')) then goto nice; end;
        if length(truncate_char(s,s[length(s)]))=1 then goto nice; end;
        if length(truncate_char(reverse(s),ascii(s)))=1 then goto nice; end;
      end;
      if length(s)≥3 then
        if length(truncate_char(s,%'0'))=1 then goto nice; end;
        if abs(d:=ascii(s)-(s[col:=2]))>1 then goto next; end;
        repeat
          c:=s[col]; ++col;
          if c-s[col]<>d then goto next; end;
        until col≥length(s);
nice:
        p+=s+'[sub]'+str(i)+'[/sub] ';
      end;
next:
    until (i=36) or (length(p)>200);
    if length(p) then
      if cpos(%'?',file_name) then down; ins_line; else create_window; end;
      set_line(cur_window,c_line,p+'('+str(a)+')',false);
    end;
    ++a;
  until a>1640;
  redraw;

elfu moja mia sita ishirini na moja 1621 суахили

๑๖๒๒ (1622)

elfu moja mia sita ishirini na tatu 1623 суахили

Цитата: mnashe от июня 19, 2011, 13:29
Код: [Выделить]

И что с этим делать? Куда его вставить? Где запускать?

В моём редакторе

А если серьёзно?

Совершенно серьёзно. Это скриптовый язык моего редактора.
Но этот скрипт несложно портировать на что угодно, хоть на Javascript. Только функцию перевода числа в произвольную систему счисления придётся писать с нуля, а в моём редакторе она уже готовая, я её давным-давно написал на ассемблере.

мда

Цитата: mnashe от июня 19, 2011, 13:41
Но этот скрипт несложно портировать на что угодно, хоть на Javascript. Только функцию перевода числа в произвольную систему счисления придётся писать с нуля, а в моём редакторе она уже готовая, я её давным-давно написал на ассемблере.

В жаваскрипте уже есть. Демонстрирую:

1623

2JG₂₄ = 1624

2F0₂₅ = 1625

1DS₃₄ = 1626

1LF₃₁ = 1627

1BI₃₅ = 1628

1251₁₁ = 1629

1630₁₀ = 1630

Как вам мой ботик? Читает последнее сообщение и постит следующее число. Если в последнем посте нет сообщения, ждет пока появится.
Щас я хочу еще написать, чтоб на хохдойч переводил

Система счисления random?
Надо бы красивые числа выбирать...

А в израиле есть? би-, три, четыре- и др-ллиарды.

1631

2AK₂₆ (1632)

sechszehnhundertdreiunddreißig (1633)

41E₂₀ (1634)