SHOW:
|
|
- or go back to the newest paste.
| 1 | -- Первый вариант | |
| 2 | - | where fib' = 0 : 1 : zipWith (\x y -> mod (x + y) 10) fib' (tail fib') |
| 2 | + | |
| 3 | where fib' = 0 : 1 : zipWith (\x y -> mod (x + y) 10) fib' (tail fib') | |
| 4 | ||
| 5 | -- Второй вариант | |
| 6 | import Data.Matrix | |
| 7 | main = print $ flip mod 10 $ getElem 1 2 $ (fromList 2 2 [1, 1, 1, 0]) ^ 10000000 |
