|
|
open System
|
|
|
|
|
|
let getResponse (language: string) =
|
|
|
match language.ToLower() with
|
|
|
| "f#" | "fsharp" -> "Ты подлиза! Думаешь, это поможет тебе получить хорошую оценку?"
|
|
|
| "prolog" -> "Ты подлиза! И мазохист, видимо. Кто вообще любит Prolog?"
|
|
|
| "python" -> "Ух ты, как оригинально! Еще один фанат змеиного синтаксиса и отступов вместо скобок."
|
|
|
| "javascript" -> "JavaScript? Серьезно? Язык, где null не равен null, но равен undefined? Удачи с этим."
|
|
|
| "java" -> "Java... Любишь писать 20 строк кода там, где хватило бы 2, да? Фанат многословия?"
|
|
|
| "c++" -> "C++, где каждая ошибка - это пять новых багов и утечка памяти. Смелый выбор!"
|
|
|
| "rust" -> "О, хипстер программирования! Любишь рассказывать всем про заимствования и время жизни?"
|
|
|
| "haskell" -> "Хаскель? Ты, наверное, любишь объяснять монады через аналогии с космосом?"
|
|
|
| "c#" -> "C#... Мечтал стать разработчиком в Microsoft, но не прошел собеседование?"
|
|
|
| "go" -> "Go - когда хочешь писать на C, но без всех сложных функций, которые делают его полезным."
|
|
|
| "ruby" -> "Ruby? В 2010-м позвонили, просят их язык обратно."
|
|
|
| "php" -> "PHP - доказательство того, что даже плохо спроектированный язык может прожить десятилетия."
|
|
|
| "swift" -> "Swift? Нравится платить Apple дань за возможность разрабатывать для их устройств?"
|
|
|
| "kotlin" -> "Kotlin - когда Java настолько плоха, что пришлось изобрести новый язык."
|
|
|
| "scala" -> "Scala? Любишь когда код выглядит как иероглифы из древнего манускрипта?"
|
|
|
| "pascal" | "delphi" -> "Ого, динозавры еще не вымерли! Какой музей тебя выпустил?"
|
|
|
| "cobol" -> "COBOL? Ты, наверное, миллионер, обслуживающий банковские системы 60-х годов?"
|
|
|
| "fortran" -> "Фортран? Ты, наверное, ровесник первых ЭВМ?"
|
|
|
| "basic" -> "BASIC? Где ты нашел машину времени, чтобы вернуться в 80-е?"
|
|
|
| "lisp" -> "LISP? (Слишком (много (скобок (не (находишь?))))"
|
|
|
| "assembly" | "asm" -> "Ассемблер? Ты либо гений, либо просто любишь страдать."
|
|
|
| "matlab" -> "MATLAB? Твои графики, наверное, красивее, чем твой код."
|
|
|
| "r" -> "R? Статистика настолько скучна, что потребовался целый язык?"
|
|
|
| "perl" -> "Perl - когда хочешь, чтобы никто не мог прочитать твой код, даже ты сам через неделю."
|
|
|
| "lua" -> "Lua? Язык для тех, кто не дорос до настоящего программирования."
|
|
|
| "typescript" -> "TypeScript? JavaScript с дополнительной головной болью!"
|
|
|
| "objective-c" -> "Objective-C? Ты либо мазохист, либо застрял в 2007 году."
|
|
|
| "erlang" -> "Erlang? Ценишь непонятный синтаксис и отсутствие документации?"
|
|
|
| "clojure" -> "Clojure? Лисп в JVM - странный выбор для мучений."
|
|
|
| "sql" -> "SQL? Это не настоящий язык программирования, но ладно, притворимся."
|
|
|
| "bash" | "shell" -> "Bash? Скриптовое программирование - это же не настоящее программирование!"
|
|
|
| "powershell" -> "PowerShell? Windows-админ, который думает, что умеет программировать?"
|
|
|
| _ -> $"Что это за {language}? Настолько непопулярный, что я даже шутку не могу придумать!"
|
|
|
|
|
|
let readInput () = Console.ReadLine()
|
|
|
let printPrompt () =
|
|
|
Console.OutputEncoding <- Text.Encoding.UTF8
|
|
|
printfn "Какой язык программирования у тебя любимый?"
|
|
|
let printResponse (response: string) = printfn "%s" response
|
|
|
|
|
|
// Оператор суперпозиции (композиции функций)
|
|
|
let (>>) f g x = g (f x)
|
|
|
|
|
|
// Оператор каррирования (частичное применение)
|
|
|
let apply f x = f x
|
|
|
|
|
|
[<EntryPoint>]
|
|
|
let main argv =
|
|
|
printfn "Выберите режим:"
|
|
|
printfn "1 - Использовать суперпозицию"
|
|
|
printfn "2 - Использовать каррирование"
|
|
|
|
|
|
let mode = Console.ReadLine()
|
|
|
|
|
|
match mode with
|
|
|
| "1" ->
|
|
|
printfn "\n--- Режим суперпозиции ---"
|
|
|
|
|
|
let result =
|
|
|
printPrompt >>
|
|
|
(fun _ -> readInput()) >>
|
|
|
getResponse >>
|
|
|
printResponse
|
|
|
|
|
|
result ()
|
|
|
|
|
|
| "2" ->
|
|
|
printfn "\n--- Режим каррирования ---"
|
|
|
|
|
|
Console.OutputEncoding <- Text.Encoding.UTF8
|
|
|
printfn "Какой язык программирования у тебя любимый?"
|
|
|
|
|
|
let userInput = apply readInput ()
|
|
|
|
|
|
let responseFunction = apply getResponse
|
|
|
let response = responseFunction userInput
|
|
|
|
|
|
let printFunction = apply printResponse
|
|
|
printFunction response
|
|
|
|
|
|
| _ ->
|
|
|
printfn "Неверный выбор режима. Пожалуйста, выберите 1 или 2."
|
|
|
|
|
|
0 |
