[ create a new paste ] login | about

WillNess

Name: Will Ness
Email:
Site/Blog:
Location:
Default language:
Favorite languages: Haskell, Prolog, English
About: Russian,Algol,English,Fortran,Basic,Hebrew,C,C++,Autolisp,Lisp,Scheme,Prolog,Haskell

Saved pastes by WillNess:

Haskell, pasted on Jan 26: 
1
2
3
4
5

ps = 2 : _Y ((3:) . diff [5,7..] . unionAll . map (\p-> [p*p, p*p+2*p..]))
_Y g = g (_Y g)  
unionAll ((x:xs):t) = x : (joyn xs . unionAll . pairs) t  
   where   pairs (a:b:t) = joyn a b : pairs t
ordzip a b = g a b   where { g a@(x:r) b@(y:q)
...
view (9 lines, 1 line of output)
Scheme, pasted on Jun 9: 
1
2
3
4
5

;;;; Stream Implementation
 (define (head s) (car s))
 (define (tail s) ((cdr s))) 
 (define-syntax s-cons
   (syntax-rules () ((s-cons h t) (cons h (lambda () t)))))
...
view (77 lines, 3 lines of output)
Scheme, pasted on Jun 9: 
1
2
3
4
5

;;;; Stream Implementation
 (define (head s) (car s))
 (define (tail s) ((cdr s))) 
 (define-syntax s-cons
   (syntax-rules () ((s-cons h t) (cons h (lambda () t)))))
...
view (77 lines, 3 lines of output)
Haskell, pasted on Nov 18: 
1
2
3
4
5

module Main where

main = do
  let m = 31000000000       -- 31 bil on k', 11 bil on q'
      ps = map (flip (-) m) $ primesFrom m
...
view (100 lines, 4 lines of output)
Haskell, pasted on Nov 18: 
1
2
3
4
5

module Main where

main = do
  let m = 37000000000 
      ps = map (flip (-) m) $ primesFrom m
...
view (38 lines, 5 lines of output)
Haskell, pasted on Nov 3: 
1
2
3
4
5

module Main where

main = do
  putStrLn "primes above 13,000,000,000:"
  let m = 13000000000
...
view (27 lines, 3 lines of output)
C, pasted on Oct 27: 
1
2
3
4

#include <stdio.h>
#include <math.h>

int main(void){
...
view (34 lines, 6 lines of output)
C, pasted on Oct 27: 
1
2
3
4

#include <stdio.h>
#include <math.h>

int main(void){
...
view (34 lines, 48 lines of output, 1 comment)
C, pasted on Oct 27: 
1
2
3
4

#include <stdio.h>
#include <math.h>

int main(void){
...
view (29 lines, 6 lines of output)