fork download
copy 
  1. (define (3sum set)
  2.   (define pr (let ([pargs (make-hash)])
  3.                (lambda args
  4.                  (unless (hash-has-key? pargs args)
  5.                    (apply printf "~A ~A ~A~%" args)
  6.                    (hash-set! pargs args #t)))))
  7.   (for ([i (- (vector-length set) 3)])
  8.     (define a (vector-ref set i))
  9.     (let loop ([s (add1 i)]
  10.                [e (sub1 (vector-length set))])
  11.       (when (< s e)
  12.         (let* ([b (vector-ref set s)]
  13.                [c (vector-ref set e)]
  14.                [+abc (+ a b c)])
  15.           (cond [(= 0 +abc)
  16.                  (pr a b c)
  17.                  (loop s (sub1 e))]
  18.               [(< 0 +abc) (loop s (sub1 e))]
  19.               [else (loop (add1 s) e)]))))))
  20.  
  21. (for-each (lambda (x)
  22.             (3sum x)
  23.             (newline))
  24.           (map (compose (curryr vector-sort <)
  25.                         list->vector
  26.                         (curry map string->number)
  27.                         string-split)
  28.                (port->lines)))
Success #stdin #stdout 0.18s 98048KB
comments ()
stdin
copy 
4 5 -1 -2 -7 2 -5 -3 -7 -3 1
-1 -6 -3 -7 5 -8 2 -8 1
-5 -1 -4 2 9 -9 -6 -1 -7
stdout
copy 
-7 2 5
-5 1 4
-3 -2 5
-3 -1 4
-3 1 2

-7 2 5
-6 1 5
-3 1 2

-5 -4 9
-1 -1 2
https://ideone.com/fZm4jS
language:
Racket (racket 7.0)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!