Помогите перевести с Haskell на другой язык

@cat_baxter · Регистрация: 16.05.2012

Студворк — интернет-сервис помощи студентам

День добрый,

Если не сложно, помогите перевести данный codegolf код на любой другой язык программирования (cи, java, python, ruby)

Haskell
1
2
3
4
5
6
(%)=divMod
f n|(m,0)<-n%2=f m|0<1=(n#3)0
(1#_)k=[k+1]
(n#p)0|p*p>n=[2]
(n#p)k|(m,0)<-n%p=m#p$k+1|0<1=(k+1):(n#(p+2))0
main=readLn>>=print.product.f

заранее благодареен.

@bokunopico · 16.05.2012, 16:16

Сообщение от cat_baxter

помогите перевести данный codegolf код на любой другой язык программирования (cи, java, python, ruby)

Странно, когда просят перевести с C++ на Pascal - пишут в разделе для Pascal.
Когда просят перевести с Pascal на C++ - пишут в разделе С++.
Когда просят перевести с Haskell на любой другой язык - пишут в разделе Haskell.

@cat_baxter · 16.05.2012, 16:19 **[ТС]**

Ну, хоть на псевдокод

Просто логика данного кода на Haskell не ясна, притом там еще и code golf вариант, как я понял.

@bokunopico · 16.05.2012, 18:43

Сообщение от cat_baxter

притом там еще и code golf вариант

То есть ты настолько ленив, что не можешь его отформатировать для людей, которые захотят тебе помочь? Неужели оформить код хотя бы

таким образом

Haskell
1
2
3
4
5
6
7
8
9
10
11
12
13
(%) = divMod
 
f :: Num a => Integer -> [a]
f n | (m, 0) <- n % 2 = f m
    | otherwise       = (n # 3) 0
    
(#) :: Num a => Integer -> Integer -> a -> [a]
(1 # _) k = [k + 1]
(n # p) 0 | p * p > n = [2]
(n # p) k | (m, 0) <- n % p = m # p $ k + 1
          | otherwise       = (k + 1) : (n # (p + 2)) 0
 
main = readLn >>= print . product . f

сложно?
Скинул знакомому, он предложил

вариант на C++

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#include <iostream>
 
int main()
{
    long long int n;
    std::cin >> n;
    while (!(n & 1)) n >>= 1;
    int k = 0;
    int p = 3;
    int result = 1;
    while (1)
    {
        if (n == 1) { result *= ++k; break; }
        if (!k && (p * p > n)) { result <<= 1; break; }
        if (n % p)
        {
            result *= k + 1;
            p += 2;
            k = 0;
        }
        else
        {
            n /= p;
            ++k;
        }
    }
    std::cout << result << "\n";
    return 0;
}

.

@cat_baxter · 16.05.2012, 18:47 **[ТС]**

Сообщение от bokunopico

То есть ты настолько ленив, что не можешь его отформатировать для людей, которые захотят тебе помочь?

Проблема в том, что я в Haskell ни в зуб ногой, и как его отформатировать для лучшего восприятия, я, честно говоря, имею смутное представление. За вариант на си премного благодарен

Новые блоги и статьи Все статьи Все блоги /
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

@cat_baxter 0 / 0 / 0 Регистрация: 16.05.2012 Сообщений: 3
	16.05.2012, 16:19 [ТС]
	Ну, хоть на псевдокод Просто логика данного кода на Haskell не ясна, притом там еще и code golf вариант, как я понял. 0