@fsharp_flood - страница 389

Ayrat

ты шутишь, я вообще хотел racket/memoize заюзать :D там сразу можно функцию как define/memo объявить, но подумал - фу, читерство буду как плебей через хештейблы

Ayrat

а ты говоришь что и это читерство!

Pavel

извращуги... n-й фибоначи мемоизировать

Анна

извращуги... n-й фибоначи мемоизировать

ваши предложения, сэр

Крылатый

ваши предложения, сэр

Прекалькуляции!

Ayrat

Прекалькуляции!

до какого предела?

Анна

до какого предела?

тут ограничения маленькие, можно на изи

Ayrat

но прекалькуляции норм да

Крылатый

до какого предела?

Сколько не жалко памяти и сколько влезет в числа.

Ayrat

проверь на моём тесте хотя бы

(define stairs-cache (make-hasheq (list (cons 1 1) (cons 2 2) (cons 3 4)))) (define (stairs n) (hash-ref! stairs-cache n (lambda () (+ (stairs (- n 1)) (stairs (- n 2)) (stairs (- n 3)))))) (stairs 4) поправил

Ayrat

ну т.е. чо там править-то, добавил ещё одно слагаемое

Анна

@Ayrat ты просто золото, сейчас затестишь мне эти задачки до того, как студенты начнут их решать, и я буду знать, чего от них ждать, каких подвохов!

Pavel

ваши предложения, сэр

Seq.unfold(fun (a,b) -> Some (a, (b, a + b))) (1, 1) |> Seq.take 10 |> Seq.toArray |> printfn "%A"

Ayrat

Seq.unfold(fun (a,b) -> Some (a, (b, a + b))) (1, 1) |> Seq.take 10 |> Seq.toArray |> printfn "%A"

ну почти, только там сумма предыдущих 3

Ayrat

конкретно в этой задаче

Pavel

Seq.unfold(fun (a, b, c) -> Some (a, (b, c, a + b + c))) (1, 1, 1)

Ayrat

@Ayrat ты просто золото, сейчас затестишь мне эти задачки до того, как студенты начнут их решать, и я буду знать, чего от них ждать, каких подвохов!

ну там весь подвох в том что в стд либе есть дофига всего и мне приходится себя по рукам бить чтобы НЕ юзать готовые решения

Ayrat

ограничь им возможные require

Анна

ну там весь подвох в том что в стд либе есть дофига всего и мне приходится себя по рукам бить чтобы НЕ юзать готовые решения

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

Ayrat

я заюзал только (require racket/match)

Ayrat

потому что combine-streams очень вкусно с ним решается (define (combine-streams s1 s2 f) (match* (s1 s2) [((? stream-empty? s1) _) (stream-map f s2)] [(_ (? stream-empty? s2)) (stream-map f s1)] [(_ _) (lambda () (cons (f (stream-first s1) (stream-first s2)) (combine-streams (stream-rest s1) (stream-rest s2) f)))]))

Анна

потому что combine-streams очень вкусно с ним решается (define (combine-streams s1 s2 f) (match* (s1 s2) [((? stream-empty? s1) _) (stream-map f s2)] [(_ (? stream-empty? s2)) (stream-map f s1)] [(_ _) (lambda () (cons (f (stream-first s1) (stream-first s2)) (combine-streams (stream-rest s1) (stream-rest s2) f)))]))

крутяк, да

Ayrat

ну если заранее оговорить что require запрещены, но смотреть в них можно.

Ayrat

то норм

Ayrat

Пусть просто перереализуют всё сами в своём модуле

Ayrat

если что-то надо

Анна