diff options
| author | Myoungjin JEON <jeongoon@gmail.com> | 2020-09-14 01:31:43 +1000 |
|---|---|---|
| committer | Myoungjin JEON <jeongoon@gmail.com> | 2020-09-14 01:31:43 +1000 |
| commit | 58588a7ca0da029bda3f1762122cb5ec781610d9 (patch) | |
| tree | 92d9c72b17473fc7848b2d8ef92af7ed9aa861ca | |
| parent | 990b51a162a8aa5c7b3bf86eba1fb76b5a885896 (diff) | |
| download | perlweeklychallenge-club-58588a7ca0da029bda3f1762122cb5ec781610d9.tar.gz perlweeklychallenge-club-58588a7ca0da029bda3f1762122cb5ec781610d9.tar.bz2 perlweeklychallenge-club-58588a7ca0da029bda3f1762122cb5ec781610d9.zip | |
[ch-077/jeongoon] ch-1.lsp added. ch-1.hs bug-fixed.
| -rw-r--r-- | challenge-077/jeongoon/common-lisp/ch-1.lsp | 4 | ||||
| -rw-r--r-- | challenge-077/jeongoon/haskell/ch-1.hs | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/challenge-077/jeongoon/common-lisp/ch-1.lsp b/challenge-077/jeongoon/common-lisp/ch-1.lsp index 24bf85a27e..b64f971657 100644 --- a/challenge-077/jeongoon/common-lisp/ch-1.lsp +++ b/challenge-077/jeongoon/common-lisp/ch-1.lsp @@ -1,4 +1,8 @@ ;; translated from ch-1.pl +;; tested with: +;; sbcl --script ch-1.lsp 99999 +;; (finished under 0.3 seconds) +;; common-lisp was winner in my implementation ;; fibonacci number in reverse order upto limit (defun rfibs (limit) ;; ignore first number 1 for challenge purpose diff --git a/challenge-077/jeongoon/haskell/ch-1.hs b/challenge-077/jeongoon/haskell/ch-1.hs index 9f438205d2..a17c909e2d 100644 --- a/challenge-077/jeongoon/haskell/ch-1.hs +++ b/challenge-077/jeongoon/haskell/ch-1.hs @@ -4,7 +4,7 @@ import Options.Generic import Data.List (findIndex, intersect, intercalate, sortBy, unfoldr) {- tested with: -runhaskell 150 # total 8 cases found +runhaskell 99999 # total 192 case(s) (slower than perl code T.T) -} -- fib, fib2: credit: https://wiki.haskell.org/The_Fibonacci_sequence fib = fst . fib2 |