sphynx

import Data.Ratio

main :: IO ()
main = print $ result 5

result :: Integer -> Rational
result size = abs $ sum
  [ fromIntegral mult * infTailSum size d
  | (mult, d) <- coeffs size
  ]

sphynx

module Main where

import Data.Array
import Data.List
import Data.Ord
import Text.Printf

type Coord = (Int, Int)
type Size = (Int, Int)

sphynx

;; Packages.
(require 'package)
(add-to-list 'package-archives
             (cons "melpa-stable" "http://stable.melpa.org/packages/") t)
(package-initialize)

(add-to-list 'load-path "~/elisp") ;; for saving some custom code.

;; Save customizations in a separate file.
(setq custom-file (expand-file-name "custom.el" user-emacs-directory))

sphynx

;; Packages.
(require 'package)
(add-to-list 'package-archives
             (cons "melpa-stable" "http://stable.melpa.org/packages/") t)
(package-initialize)

(add-to-list 'load-path "~/elisp") ;; for saving some custom code.

;; Save customizations in a separate file.
(setq custom-file (expand-file-name "custom.el" user-emacs-directory))

sphynx

#include <stdio.h>
#include <stdlib.h>

typedef void (*func) (const char *);

struct module {
    func print;
    func println;
};