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

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

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

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

C#

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#

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#

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)

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

@~~Ev_Hyper~~ Заблокирован
	27.01.2016, 20:29	4
	Сообщение от Patapoon Хм, код не выполняется. Я не могу понять в чем может быть проблема. Patapoon, что значит не выполняется? 0

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

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

	06.08.2017, 15:55

Опции темы

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

Решение