Форум программистов, компьютерный форум, киберфорум
F# .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 04.04.2015
Сообщений: 4
1

Используя скобки и бинарные арифметические операции +,-,*,/, получить заданное число

04.04.2015, 20:16. Просмотров 1215. Ответов 1
Метки нет (Все метки)

помогите написать программу на F#, как-нибудь отблагодарю

Заданы 6 цифр и число. Используя скобки и бинарные арифметические операции +,-,*,/, получить заданное число, результатом функции должно быть арифметическое выражение в инфиксной форме. Если ответов несколько, вывести а)любой из них б) все ,(Примечание: деление разрешается использовать лишь в том случае, если частное будет целым)

пример:
(f(8 9 4 3 9 2) 100)
(89*(4-3)+9+2) или (89+(4-3)*9+2) или (8*(9+4)-3+9-2)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.04.2015, 20:16
Ответы с готовыми решениями:

Используя скобки и бинарные арифметические операции +,-,*,/, получить заданное число
помогите написать программу на CommonLisp, как-нибудь отблагодарю Заданы 6 цифр и число....

Заданы 6 цифр и число. Используя скобки и бинарные арифметические операции +,-,*,/, получить заданное число
помогите написать программу на C#, как-нибудь отблагодарю Заданы 6 цифр и число. Используя...

Данное натуральное число N. Используя только элементарные арифметические операции (+, -, *, /)
Ув.пользователи, помогите решить задачку (С + + или Visual C + +), очень нужно!( Данное...

Дано целое число А. Получить А в 5-й степени, используя только три операции умножения
Дано целое число А. Получить А в 5-й степени, используя только три операции умножения.

1
1192 / 585 / 88
Регистрация: 20.09.2012
Сообщений: 1,877
06.04.2015, 07:41 2
Лучший ответ Сообщение было отмечено Ev_Hyper как решение

Решение

F#
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
let combine (a, a') (b, b') = 
    seq { 
        yield a + b, sprintf "(%s + %s)" a' b'
        if Seq.last a' <> ')' && Seq.head b' <> '(' 
                then yield sprintf "%s%s" a' b' |> int, sprintf "%s%s" a' b' else ()
        yield a - b, sprintf "(%s - %s)" a' b'
        yield a * b, sprintf "(%s * %s)" a' b'
        if b <> 0 && a / b * b = a
                then yield a / b, sprintf "(a / b)" else ()
        } 
 
let rec solve xs = 
    seq {
        match xs with
        | a :: b :: [] -> yield! combine a b
        | a :: b :: t  -> yield! combine a b |> Seq.collect (fun e -> solve (e :: t))
                          yield! solve (b :: t) |> Seq.collect (fun t -> solve (a :: t :: []))
        | x :: []      -> yield x
        | []           -> ()
        }
 
let f xs n = 
    xs |> List.map (fun e -> e, string e) 
       |> solve
       |> Seq.filter (fst >> ((=)n))
 
do
    for x, e in f [8; 9; 4; 3; 9; 2] 100 do 
        printfn "%A = %s" x e
http://ideone.com/DsdPmQ

Добавлено через 9 часов 10 минут
косячок правда маленький есть... ну да ладно, имеющий гдаза да исправит
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.04.2015, 07:41

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Реализовать все арифметические операции, используя только операцию сложения
Помогите пожалуйста. Требуется реализовать на паскале все арифметические операции, используя...

Найти сумму чисел n используя только элементарные арифметические операции
дано натуральное число n, найти сумму чисел n используя только элементарные арифметические...

Ввести, используя списки, два больших целых числа и выполнить арифметические операции(+,-,*,/)
С++, С помощью списков на С++ надо ввести два больших целых числа(каждое более 1000 знаков ), и...

Поместить число в РОН и выполнить арифметические операции
Здравствуйте, начали изучение Assembler , а именно асемблерные вставки в Delphi. Все делаем на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.