как два байта, огаАвтор оригинала: Fortop
Всего-то нужно - посчитать эффективность выбираемого решения.
Ну как два, не как два....grigori
как два байта, ога
let countTickets =
let rec N n k =
if n = 1 then
if k > 9 then 0 else 1
else
Seq.sumBy (fun elt -> (N (n - 1) elt)) (let start = if k < 10 then 0 else 0 + k - 9 in seq { start..k })
in
Seq.sumBy (fun elt -> let sum = (N 3 elt) in sum * sum) (seq { 0..27 })
почему неопределенного ?Автор оригинала: phprus
Димон
ИМХО дебильная задача. В стандартизованных языках (С, С++) это типичный пример неопределенного поведения.
А за подобный код в реальных проектах не то что руки, а голову нужно отрывать...