Какие общие советы у вас есть для игры в гольф в DC ?

dc - это утилита калькулятора для UNIX / Linux, предшествующая языку C. Меня интересует, как сделать мои программы постоянного тока (вычисления?) Короче. Я ищу идеи, которые могут быть применены к общему коду-гольфу , которые, по крайней мере, немного специфичны для постоянного тока (например, удаление комментариев не является полезным ответом)

Пожалуйста, оставьте один совет за ответ.

Заявления if-then-else

Предположим, мы хотим проверить условие a==b(пусть aи bхранятся в их соответственно именованных регистрах).

[         # Everything is wrapped in one big macro
  [         # An inner macro for our *then* part
              # <-- Stuff to execute if a==b here
  2Q          # Then quit the inner and outer macro
]sE       # `E' is for Execution register ;)
la lb =E  # if a==b, execute E
          # if E is executed, it will quit the whole macro, so the rest is never reached:
          # <-- Stuff to execute if a!=b here
]x        # End macro; Execute

Позвольте (foo)быть заполнителем, с целью уплотнения:

[[(then)2Q]sE(condition)E(else)]x

Уверен, что это наиболее компактный оператор из возможных (также показанный здесь ).

Вы можете сохранить ввод с d

Используя d, который дублирует ToS (верхнюю часть стека), вы можете убрать ввод с пути для дальнейшего использования, при этом все еще имея возможность использовать его.

Массивы

Хотя они являются головной болью для начинающих, dcпредлагает массивы. Они работают так:

value index :a    # store `value' in array linked to top of stack `a', with index `index'
      index ;a    # push a[index] on (main) stack

Как обычно, первый элемент имеет индекс 0. Массивы могут быть полезны при работе с последовательностями, как в последовательности SUDSI , особенно в сочетании со счетчиками. Массивы могут уменьшить количество перестановок чисел, которое вам нужно сделать (и количество счетчиков и сравнений), если вы хотите выбрать определенный элемент, не разрушая вашу среду. Например, если вы хотите переместить стопку чисел в массив, вы можете написать рекурсивную функцию, которая использует z(глубину стека) или z 1-в качестве индекса, хранит элемент и проверяет, z == 0завершить ли себя.

[z 1- :a z 0 !=F]dsFx    # or I could just write such a function for you :)

Помните о следующем:

• Массивы связаны с экземплярами именованных стеков. Если вы поместите новое значение в стек, с которым связан массив, этот массив также будет «вытолкнут назад», и его место займет «новый» массив. Старый массив не будет использоваться до тех пор, пока соответствующее значение в именованном стеке также не будет использоваться (то есть, поверх его стека). Это сложная концепция, которую лучше объяснить хорошей анимацией, которая мне не подходит.
• Вы можете хранить вещи в именованном массиве, фактически не помещая значение в соответствующий именованный регистр. Однако, если вы сделаете это, вы не сможете получить доступ к стеку / регистру с этим именем до конца сеанса. dcпотерпит крах
• Если вы вытолкнете значение из именованного стека, все значения в соответствующем массиве будут потеряны - без предупреждений, без гарантий, ничего. Просто ушел (что тоже может быть полезно).

0-й степени вместо условных / макросов

Иногда вам может понадобиться что - то вроде с троичной условно:

A == B ? C : D;

Хороший способ справиться с этим описан в ответе @ Joe . Однако мы можем сделать лучше:

0AB-^E*C+

где E - D - C.

Это проверяет равенство, возводя 0 в степень разности двух значений. Это приводит к 1, если равно и 0 в противном случае. Остальные просто масштабируют 1 или 0 до значений C или D. Это работает, потому что dcдает 0 ⁰ = 1 и 0 ⁿ = 0 для n! = 1.

Иногда необходимо сбросить число из стека. Один из способов сделать это просто вытолкнуть его в неиспользуемый переменную, то есть st. Однако в некоторых ситуациях вы можете вставить его в несколько других мест, например, во входную базу, когда у вас больше нет числового ввода, или в спецификатор точности, если у вас нет больше операций, которые могут помочь, если точность будет иметь значение. В первом случае используйте i. В последнем случае используйте k.

Длина расчета: Z, X, иz

Zвыскакивает ToS и выталкивает количество цифр (десятичное), если это число, или количество символов, если это строка. Это может быть полезно для определения длины результата (для буферизации вывода) или вычисления длины строки. Обратите внимание, что для чисел Zтолкает объединенную длину целочисленной части и дробной части.

Xвыскакивает ToS и толкает количество цифр в дробной части числа. Если ToS был строкой,0 он выдвигается.

Чтобы найти количество цифр в целой части числа, можно использовать dZrX-. Если вы не изменили точность по умолчанию k==0, используется 1/Zкороче, но предположим, что вам нужно поддерживать определенную ненулевую точность после операции:Kr0k1/Zrk это скорее бельмо на глазу.

zтолкает количество предметов в стеке. Одна из моих любимых команд, она не выдает никаких значений! Это может быть использовано для генерации последовательности чисел или увеличения счетчика. zdПовторное использование (скажем, в начале макроса) может позволить протестировать вычисления для каждого натурального или целого числа в порядке возрастания.

Digits A на Fможет быть использованы в качестве замены для чисел от 10 до 15. Однако они еще должны быть обработаны эффективно , как основание 10 цифр (предполагается , что входная база 10) , когда в разных местах. Другими словами, при вводе база 10 FFне будет представлять 255, она будет представлять (15 * 10) + 15или 165.

На самом деле это работает для всех цифр , 0чтобы Fв любом входной базы2 в 16. Так что, если база ввода 5, то 26Eбудет (2 * 5^2) + (6 * 5) + 14или 94.

Обратите внимание, что это поведение действует для неизмененных источников GNU. Однако, как указывает @SophiaLechner, в дистрибутивах RedHat, по-видимому, используется bc-1.06-dc_ibase.patch, который меняет это поведение, поэтому цифры> = ibase обрабатываются как ibase - 1, независимо от их фактического значения. Обратите внимание, что TIO, dc похоже, не имеет bc-1.06-dc_ibase.patch (хотя его Fedora 28 ¯_ (ツ) _ / ¯).

При инициализации в функции макро (мы будем использовать F) , который вы хотите запустить сразу же, использовать что - то вроде , dsFxа неsFlFx . То же самое работает для переменных: dsaвместо sala.

Если вам нужно сделать что-то другое между хранением и загрузкой (например, sa[other stuff]la), все равно подумайте, действительно ли вышеприведенное является жизнеспособным: если вы оставите значение в стеке перед другими операциями, оно вернется к началу к концу из этих операций?

Просто обнаружил это случайно. Еще один способ сгенерировать ноль:_ .

_является сигналом для постоянного тока о том, что следующие цифры являются отрицательным числом. Пример:

_3 # pushes -3

Но что, если мы не будем следовать за ним с номером?

_ # pushes 0...sometimes

Это работает, когда следующий непустой символ, следующий за подчеркиванием, не является цифрой. Если за ним следует цифра, даже после новой строки, она интерпретируется как отрицательный знак.

c4 5_6  # -6,5,4
c4 5_ 6 # -6,5,4
c4 5_
6       # -6,5,4 # still a negative sign since the next thing it sees is a digit
c4 5_z  #  3,0,5,4 # if it's followed by a non-digit, it's a 0
c4 5_p6 #  6,0,5,4
c4 _*   #  0 # 4*0=0

Если содержимое всего стека необходимо распечатать в конце программы, для этого можно использовать рекурсивный макрос-цикл. Однако гораздо проще просто использовать fкоманду.

dcчитает ввод строки за раз. Если вам нужно прочитать несколько элементов, то для этого нужно выполнить по одной на строку, либо ?для каждой строки нужно прочитать, либо громоздкий макрос-цикл. Вместо этого, если все элементы ввода могут быть помещены в одну строку, разделенную пробелом, то? будет считывать все входные элементы, помещая каждый из них в стек.

К примеру , в seq 10 | dc -e'?f', seqвыводит целые числа 1-10, по одному в строке. ?будет только читать первый , 1который будет выводиться , когда fсбрасывает весь стек. Однако в seq 10 | tr '\n' ' ' | dc -e'?f', trделает входные целые все разделенные пробелом. В этом случае он за один раз ?прочитает все целые числа из строки и fвыведет их все.

Если оператор ограничен от источника, создайте новый с a

Что-то, что пригодилось мне пару раз, теперь состоит в том, чтобы избегать использования определенного оператора, выдвигая значение ASCII оператора, используя его aдля преобразования его в строку, и sзаписывая его в регистр для последующего выполнения в качестве макроса на. Например, мне нужно сделать разделение, но я либо запрещен, либо стараюсь избегать использования персонажа /. Я могу вместо этого сделать, 47asdа затем в будущем, когда мне нужно разделить 16 на 4 16 4 ldx,.

• Это будет работать только для односимвольных операторов (не может создать строку) и не будет работать для таких команд, как s которым нужно что-то постфиксировать.
• Это добавляет довольно много байтов и, следовательно, подходит только тогда, когда необходимо избегать определенного символа или как-то дает бонус за очки.

Как избежать пробелов

Как избежать пробелов, возникает немало проблем, и, как правило, это легко dc. Помимо строк, один очень специфический момент, когда пробел становится необходимым, - это нажатие нескольких чисел в строке:1 2 3 . Если этого следует избегать:

• Выполнить пустой макрос между: 1[]x2[]x3[]x .
• Если скобки на столе, хранить NOP макроскопически загодя: 35asnи выполнить его между ними: 1lnx2lnx3lnx.