Есть миллион способов сделать это - меня смутно беспокоит, что эти вещи не оцениваются строго справа налево, я старый программист APL и считаю вещи справа налево, даже когда они нет.
Если бы это было то, что я собирался вставить в программу, где я хотел бы извлечь какое-то число, а число было константой, я бы сделал следующее:
(#~ 2&~:) 1 3 2 4 2 5
1 3 4 5
Думаю, это что-то вроде крючка. Правая половина выражения генерирует вектор истинности, который не равен 2, и тогда у октоторпа слева свои аргументы меняются местами так, что вектор истинности является левым аргументом для копирования, а вектор - правым аргументом. Я не уверен, что ловушка быстрее или медленнее, чем вилка с копией аргумента.
+/3<+/"1(=2&{"1)/:~S:_1{;/5 6$1+i.6
156
Эта программа отвечает на вопрос: «Для всех возможных комбинаций игральных костей Yatzee, сколько из 4 или 5 совпадающих чисел в одном броске?» Он генерирует все перестановки в блоках, сортирует каждый блок по отдельности, распаковывает их как побочный эффект и извлекает столбец 2, сравнивая блок с их собственным столбцом 2, в единственном успешном форке или хуке, которые мне когда-либо удавалось написать. Теория состоит в том, что если есть число, которое появляется в списке 5, три или более раз, если вы сортируете список, средним числом будет число, которое появляется с наибольшей частотой. Я пробовал несколько других хуков и / или вилок, и каждый потерпел неудачу, потому что есть что-то, чего я просто не получаю. В любом случае эта таблица истинности сводится к вектору, и теперь мы точно знаем, сколько раз каждая группа из 5 кубиков соответствовала срединному числу. Наконец, это число сравнивается с 3, и подсчитывается количество успешных сравнений (больше 3, то есть 4 или 5).
Эта программа отвечает на вопрос: «Для всех возможных 8-значных чисел, состоящих из символов с 1 по 5, с повторением, сколько делится на 4?»
Я знаю, что вам нужно только определить, сколько из первых 25 делится на 4 и умножается, но программа запускается более или менее мгновенно. В какой-то момент у меня была гораздо более сложная версия этой программы, которая генерировала числа в базе 5 так, чтобы отдельные цифры были между 0 и 4, добавляла 1 к сгенерированным таким образом числам, а затем помещала их в базу 10. Это было что-то вроде 1+(8$5)#:i.5^8
+ / 0 = 4 |, (8 $ 10) #. > {; / 8 5 $ 1 + i.5
78125
Пока у меня есть только глагольные поезда и отбор, у меня нет проблем. Когда я начинаю повторять свой аргумент в глаголе, чтобы меня заставили использовать вилки и крючки, я начинаю терять.
Например, вот что я не могу заставить работать.
((1&{~+/)*./\(=1&{))1 1 1 3 2 4 1
Я всегда получаю ошибку индекса.
Смысл в том, чтобы вывести два числа, одно из которых совпадает с первым числом в списке, второе - с количеством повторений этого числа.
Так что это много работает:
*./\(=1&{)1 1 1 3 2 4 1
1 1 1 0 0 0 0
Я сравниваю первое число с остальной частью списка. Затем я делаю вставку и сжатия - и это дает мне 1, пока у меня есть непрерывная строка из 1, как только она ломает и терпит неудачу, и нули выходят.
Я подумал, что мог бы затем добавить еще один набор паренов, снова получить ведущий элемент из списка и каким-то образом записать эти числа, в конечном итоге идея состояла бы в том, чтобы иметь еще одну стадию, где я применяю инверсию вектора к исходному list, а затем используйте $: чтобы вернуться для рекурсивного применения того же глагола. Вроде как пример быстрой сортировки, который, как мне показалось, я понял, но думаю, что нет.
Но я даже не могу подобраться. Я задам это как отдельный вопрос, чтобы люди получали должную оценку за ответы.