Вычислить номер первого числа Фибоначчи, которое меньше 999888

@lithium · Регистрация: 31.05.2012

Студворк — интернет-сервис помощи студентам

Напишите функцию, которая вычисляет номер первого числа Фибоначчи,
которое меньше 999888

@bokunopico · 01.06.2012, 14:02

Haskell
1
2
3
4
5
6
f :: Integer -> Int
f n = let fibs@(_:xs) = 0:1:zipWith (+) fibs xs
      in length . takeWhile (< n) $ fibs
 
*Main> f 999888
31

@lithium · 01.06.2012, 14:25 **[ТС]**

скорей всего есть ошибка от 10 дало 7 хотя это 8

Добавлено через 5 минут
bokunopico незнаеш как составить список простых чисел до n числа??

@bokunopico · 01.06.2012, 14:27

Сообщение от lithium

скорей всего есть ошибка от 10 дало 7 хотя это 8

Haskell
1
2
3
*Main> let fibs = 0:1:zipWith (+) fibs (tail fibs)
*Main> take 10 fibs
[0,1,1,2,3,5,8,13,21,34]

8 находится на 7-ой позиции, 13 - на 8-ой.

Сообщение от lithium

незнаеш как составить список простых чисел до n числа??

Выбирай любой способ: http://www.haskell.org/haskell... lutions/39

@lithium · 01.06.2012, 14:48 **[ТС]**

gh= map (\x -> if ch x then x else zan x) xs эта функция возвращает список как сумму взять??

@bokunopico · 01.06.2012, 14:52

Сообщение от lithium

эта функция возвращает список как сумму взять??

С помощью функции sum, которая принимает список чисел.

@lithium · 01.06.2012, 15:25 **[ТС]**

А как сделать чтобы просто последавательность вернул до 999888

Добавлено через 13 минут
Я предлагаю такое решение
fibs ::Integer->Integer->Integer
fibs n g |n+g<99888 =g
|otherwise = fibs(g $g+n)
только скомпелировать немогу!

@lithium · 04.06.2012, 20:43 **[ТС]**

Оставляю решоную задачу

Haskell
1
2
3
4
fibs ::Integer->Integer->Integer
fibs = fibs1 (0 1) 
fibs1 n g |n+g>999888 =g
         |otherwise = fibs g $g+n

@bokunopico · 04.06.2012, 21:46

Сообщение от lithium

Оставляю решоную задачу

И что, её засчитали?

@lithium · 04.06.2012, 22:19 **[ТС]**

bokunopico что то нетак ??

@bokunopico · 04.06.2012, 22:46

Сообщение от lithium

bokunopico что то нетак ??

Да, функция написана с ошибками. Ты пробовал вообще запускать её в интерпретаторе?

@lithium · 05.06.2012, 23:31 **[ТС]**

сор я с памяти списывал накасячил =) вот рабочий

Haskell
1
2
3
4
fibs =fibs1 0 1
fibs1 ::Integer->Integer->Integer
fibs1 n g |n+g>999888 =g
         |otherwise = fibs1 g $g+n

@Catstail · 12.08.2012, 23:20

Сообщение от lithium

Напишите функцию, которая вычисляет номер первого числа Фибоначчи,
которое меньше 999888

- мне кажется, что первое число Фибоначчи, которое меньше 999888 - это нуль... (Если считать, как принято, слева направо)

Правильнее, наверное, спросить номер последнего числа Фибоначчи, меньшего 999888. Вот еще одно решение:

Haskell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
-- Функция строит ряд Фибоначчи (начиная с "затравки")
-- и прекращает наращивание, когда очередной член становится
-- больше значения второго параметра
 
wfib :: [Integer] -> Integer -> Int
wfib (x:y:ys) n | (x > n) = length (x:y:ys)
                | otherwise = wfib (z:x:y:ys) n
                  where z=x+y
 
-- Эта функция нужна только для того, чтобы вызываться 
-- с единственным параметром
 
nfib :: Integer -> Int
nfib n = (wfib [1,0] n)-1
 
-- Проверка:
 
Main> nfib 999888
31

@lithium · 13.08.2012, 02:04 **[ТС]**

Ну в принципе можно и так но помне простота залог правельного решения !!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@lithium 1 / 1 / 0 Регистрация: 31.05.2012 Сообщений: 19

	Вычислить номер первого числа Фибоначчи, которое меньше 999888 01.06.2012, 13:20. Показов 2623. Ответов 13 Метки нет (Все метки) Напишите функцию, которая вычисляет номер первого числа Фибоначчи, которое меньше 999888 0

@lithium 1 / 1 / 0 Регистрация: 31.05.2012 Сообщений: 19
	01.06.2012, 14:25 [ТС]
	скорей всего есть ошибка от 10 дало 7 хотя это 8 Добавлено через 5 минут bokunopico незнаеш как составить список простых чисел до n числа?? 0

@lithium 1 / 1 / 0 Регистрация: 31.05.2012 Сообщений: 19
	01.06.2012, 14:48 [ТС]
	gh= map (\x -> if ch x then x else zan x) xs эта функция возвращает список как сумму взять?? 0

@lithium 1 / 1 / 0 Регистрация: 31.05.2012 Сообщений: 19
	01.06.2012, 15:25 [ТС]
	А как сделать чтобы просто последавательность вернул до 999888 Добавлено через 13 минут Я предлагаю такое решение fibs ::Integer->Integer->Integer fibs n g \|n+g<99888 =g \|otherwise = fibs(g $g+n) только скомпелировать немогу! 0

@lithium 1 / 1 / 0 Регистрация: 31.05.2012 Сообщений: 19
	04.06.2012, 22:19 [ТС]
	bokunopico что то нетак ?? 0

@lithium 1 / 1 / 0 Регистрация: 31.05.2012 Сообщений: 19
	13.08.2012, 02:04 [ТС]
	Ну в принципе можно и так но помне простота залог правельного решения !! 0