Перевод кода с языка C# на F#

@Patapoon · Регистрация: 24.12.2014

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

Срочно понадобился перевод этой программы в среду F#, или хотя бы аналог по функциональности, буду очень благодарен. С функциональным программированием дружу слабо, а времени на подробное изучение языка недостаточно.

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
30
31
32
33
34
35
36
37
38
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
 
namespace _2
{
    class Program
    {
        static void Main(string[] args)
        {
            int[] Coin = {50, 20, 10, 5, 3, 2, 1};
            int[] CoinNum = new int[6]; 
            int X = 100;
            int Res50 = 100 / 50;
            Console.WriteLine("1 уе = " + Res50 + " монеты по 50 копеек");
            
            //Любая сумма
            Console.WriteLine("Введите размер сдачи в копейках");
            string Sdacha = Console.ReadLine();
            int Res;
            bool result = Int32.TryParse(Sdacha, out Res);
 
            if (result)
                for (int i = 0; i < CoinNum.Length; i++ )
                {
                    CoinNum[i] = Res / Coin[i];
                    Res = Res - CoinNum[i] * Coin[i];
                    if (CoinNum[i]!=0)
                        Console.WriteLine(CoinNum[i] + " монет по " + Coin[i] + " копеек");
                }           
 
            else
                Console.WriteLine("Неправильный формат ввода");
 
        }
    }
}

@Ev_Hyper · 27.01.2016, 19:18

Patapoon, как вариант:

F#
1
2
3
4
5
6
7
8
let coin = [| 50; 20; 10; 5; 3; 2; 1 |]
 
let c = System.Console.ReadLine() |> int
 
coin 
|> Array.scan(fun acc x -> let y = fst acc in y % x , (x, y/x)) (c, (0,0))
|> Seq.skip 1
|> Seq.iter(fun (_,(x,y)) -> printfn "%A - %A" x y)

https://dotnetfiddle.net/tjdSmm

@Patapoon · 27.01.2016, 20:11 **[ТС]**

Хм, код не выполняется. Я не могу понять в чем может быть проблема.

@Ev_Hyper · 27.01.2016, 20:29

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

Хм, код не выполняется. Я не могу понять в чем может быть проблема.

Patapoon, что значит не выполняется?

@Patapoon · 27.01.2016, 20:36 **[ТС]**

Ну по крайней мере на том же сайте

https://dotnetfiddle.net/tjdSmm

При запуске консоль остается пустой. В компиляторе при запуске так же ничего не происходит.

@Ev_Hyper · 27.01.2016, 20:40

Patapoon, а, так вы посмотрите на строчку:

F#
1
let c = System.Console.ReadLine() |> int

ждет, пока вы введете число.

@Patapoon · 27.01.2016, 20:46 **[ТС]**

О господи...Благодарю. С компилятором тоже разобрался. Я пытался вогнать код в интерактивный режим и напарывался на ошибку одной из строк вместо запуска в консоли. Большое спасибо за помощь!

@SedovAlYu · 06.08.2017, 15:55

F#
1
2
3
4
5
6
7
let rec smallChange = function
  | [], _ -> []
  | _, amount when amount <= 0 -> []
  | h::t, amount when amount < h -> smallChange (t, amount)
  | h::t, amount -> (h, amount / h)::smallChange (t, amount % h)
  
smallChange ([ 50; 20; 10; 5; 3; 2; 1 ], 45) |> Seq.iter(fun (coin, quantity) -> printfn "%i копеек: %i штук" coin quantity)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Patapoon 1 / 1 / 0 Регистрация: 24.12.2014 Сообщений: 7
	27.01.2016, 20:11 [ТС]
	Хм, код не выполняется. Я не могу понять в чем может быть проблема. 0

@Patapoon 1 / 1 / 0 Регистрация: 24.12.2014 Сообщений: 7
	27.01.2016, 20:36 [ТС]
	Ну по крайней мере на том же сайте https://dotnetfiddle.net/tjdSmm При запуске консоль остается пустой. В компиляторе при запуске так же ничего не происходит. 0

@Patapoon 1 / 1 / 0 Регистрация: 24.12.2014 Сообщений: 7
	27.01.2016, 20:46 [ТС]
	О господи...Благодарю. С компилятором тоже разобрался. Я пытался вогнать код в интерактивный режим и напарывался на ошибку одной из строк вместо запуска в консоли. Большое спасибо за помощь! 0

Перевод кода с языка C# на F#

Решение