разве весь код на алголе говнокод?

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

напиши на сишарпе тогда, пока не понятно, чем тебе мой вариант не понравился

напиши на сишарпе тогда, пока не понятно, чем тебе мой вариант не понравился

в базу слазить?

у меня был домен где в середине торчали асинк колы - херовая идея конечно

например, но пусть будет просто вызов Task.Delay(100)

type T = { A: string; B int } with member this.SlazijVBazu() = task { do! Async.Sleep 100 return A + B }

ты решение предложи)

а чо вы постоянно with пишете?)

МОЖНО БЕЗ?!11

type T = { A: string; B int } with member this.SlazijVBazu() = task { do! Async.Sleep 100 return A + B }

и ты считаешь, что это хорошее решение?

Я сразу написал, что делать ИО вызовы в пропертях это ебанько, особенно с триггером на смену значения в полях. Совершенно не ясно, при чем тут вообще язык только

да я чот думал что поместится

а то я че-то уже начинаю терять самообладание и тянусь к банхаммеру!

Ну так может ты уже перестанешь страдать хуйней и покажешь на сишарпе, что ты имеешь ввиду?

пример простой

let getPriceControl priceControlOverride priceControlBrandRules priceControlCategoryRules priceControlsManufacturerCatalog priceControlDefaultRule taxonomyItems (approvedCompetitiveSourcesMap: Map<RegionId, string Set>) (isOnePNode: NodeId->bool) (brandOption: string option) (offersMap: Map<RegionId, OfferAndShippingCost[]>) (retailSku: SlimmedRetailSku) (marginBasedPricingMap: Map<RegionId, MarginBasedPricingCalculationResults>) : Map<RegionId, PriceControlResult option> = let invertMapLevel mapLevel = match mapLevel with | PriceControlPolicies.Constants.Msp -> 1 | PriceControlPolicies.Constants.Map -> 2 | PriceControlPolicies.Constants.NoPrice -> 3 | _ -> 4 let sortOffers maybeMarginTarget offers = offers |> Seq.choose (fun offer -> if offer.sourceSkuMapLevel = PriceControlPolicies.Constants.Map then if Options.checkIfNoneOrNonPostivieDecimal offer.sourceSkuMapPrice then None else let mapPrice = offer.sourceSkuMapPrice.Value * offer.originalSourceSkuFactor Some { offer with offerKind = OfferKind.Price mapPrice } else match offer.offerKind with | OfferKind.Price price -> Some { offer with offerKind = OfferKind.Price (price * offer.originalSourceSkuFactor) } | OfferKind.CostWithOptionalPrice (cost, Some price) -> Some { offer with offerKind = OfferKind.CostWithOptionalPrice (cost, price * offer.originalSourceSkuFactor |> Some) } | OfferKind.CostWithOptionalPrice (_, None) -> Some offer ) |> Seq.map (fun offer -> // Amazon 3P offers should have shipping included in their price. match (offer.source = Sources.Indirect) && (offer.merchantId <> Constants.AmazonMerchantId) with | true -> match offer.offerKind with | OfferKind.Price price -> { offer with offerKind = OfferKind.Price (price + Option.getValueOr 0m offer.shippingAmount) } | OfferKind.CostWithOptionalPrice _ -> offer | false -> offer) |> Seq.sortBy(fun offer -> let priceControlPrice = Offer.tryGetPriceOrTargetPrice offer maybeMarginTarget |> Option.getValueOr Decimal.MaxValue priceControlPrice, invertMapLevel offer.sourceSkuMapLevel) AllRegions |> Seq.map ^fun regionId -> //check global override first. This should apply to all regions no matter what checkPriceControlOverride priceControlOverride retailSku.id |> Option.orElseWith ^fun _ -> maybe { let maybeMarginTarget = marginBasedPricingMap.TryFind regionId |> Option.map (fun x -> x.marginTarget) let! notSortedOffers = offersMap.TryFind regionId let offers = notSortedOffers |> Seq.map ^fun x -> x.offer |> sortOffers maybeMarginTarget |> Seq.toArray

и ты считаешь, что это нормальный код?

то есть вот это считается отличным читаемым кодом?

он значительно упрощен, но в целом да

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

да я чот думал что поместится

обычное дело! а от F# стало сильно легче?

штош, ясно. А чем это лучше пропертей?

Не благодари (gist) 😏

тем что это не проперти, а описание того, как надо рассчитывать те или иные свойства

return! //check manufacturer which is region specific checkManufacturerCatalog priceControlsManufacturerCatalog offers maybeMarginTarget |> Option.orElseWith ^fun _ -> maybe { let retailSkuCategory: CategoryId = int retailSku.category let! merchants = approvedCompetitiveSourcesMap.TryFind regionId let approvedCompOffers = offers |> Array.filter ^fun offer -> merchants.Contains offer.merchantId || offer.source = OfferSource.Indirect let directApprovedCompOffers = approvedCompOffers |> Array.filter ^fun offer -> offer.source = OfferSource.Merchant || offer.source = OfferSource.Jet return! //check brand override which is region specific checkBrandOverride priceControlBrandRules taxonomyItems brandOption offers approvedCompOffers directApprovedCompOffers retailSkuCategory maybeMarginTarget ////check category override which is region specific |> Option.orElseWith ^fun _ -> checkCategoryOverride priceControlCategoryRules taxonomyItems offers approvedCompOffers directApprovedCompOffers retailSkuCategory maybeMarginTarget ////check other overrides which is region specific |> Option.orElseWith ^fun _ -> checkOtherSources priceControlDefaultRule isOnePNode approvedCompOffers directApprovedCompOffers maybeMarginTarget } } |> tuple2 regionId |> Map.ofSeq

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

Ну насколько я вижу, он хотя бы pure, уже +2 бала) Скажи как плиз: ^ тут твой код, или у вас до тебя так писали?

какая нахуй разница, в проперти описывать или в билдере? Ну кроме того, что тут мы еще либу подключили для этого.

ну, тут люди, которые хотя бы пописали на двух языках, рассуждают об этих двух языках

не, это я тут рефакторнул уже, этот код был сильно больше

жалко у меня нет всей истьории

Шош ты на локальный функции не разбил 🤔

яснопонятно) можем на этом закончить)

пример простой

какой-то обрывок кода но на f# будет тоже самое, лямбды только выглядят чуть по другому

но утверждать что надо срочно бросать C# и бежать на F# - как минимум непрофессионально

а профессионально знать только 1 язык и парадигму?

и говорить, что на F# будет значительно лучше, потому что это F# как минимум странно

и говорить, что на F# будет значительно лучше, потому что это F# как минимум странно