Например, учитывая 1 8 4 9 0 2 , верните 3. Спасибо.

Вот другой подход к решению Project Euler #1: +/~.(3*i.>.1000%3),5*i.>.1000%5 Как его рефакторить?

Если вы не знакомы с последовательностью простых чисел Роуленда, вы можете узнать о ней здесь . Я создал уродливый процедурный монадический глагол в J, чтобы сгенерировать первые n терминов в этой последовательности, как показано ниже: rowland...

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

((1&{~+/)*./\(=1&{))1 1 1 3 2 4 1 Я всегда получаю ошибку индекса. Суть в том, чтобы вывести два числа, одно из которых совпадает с первым числом в списке, а второе — с числом повторений этого числа. Так что это много работает:...

Я хочу написать основную функцию для изучения J. Пока я придумал это: =&0+/(=&0)(2+i.(-&2)y)|y Он отлично работает, за исключением того, что я должен хранить число в переменной y . y=.5...

Пишу свою первую программу на J для решения задачи Эйлера №1 (найти сумму всех натуральных чисел до 1000, которые являются кратно 3 или 5), я получил следующее решение: +/(+./0=3 5|/n)#n=.i.1000 Однако я почти уверен, что есть умный способ...

Мне нужно было подсчитать количество различных возможных бросков, которые могут возникнуть в результате броска K кубиков, у каждого из которых N сторон. Мое определение ролика таково: что-то вроде {1, 1, 2, 3, 4} эквивалентно {1, 4, 3, 1, 2} (порядок...

Рассмотрим следующий F #: - type TestClass() = let getValFromMap m k = Map.find k m let addToMap map k i = map |> Map.add k i let mutable someMap : Map<string,int> = Map.empty let getValFromMapPartial key =...

Я работаю над синтаксисом для рэкета, используя каналы, похожие на unix, примерно так: > ("FOO" > string-replace "O" "E" > string-append "x" > string-downcase) "feex" Вот решение...