fork download
copy 
  1. ; maximum product
  2.  
  3. (define (max-prod xs ys zs)
  4.   (let ((min-x (apply min xs)) (max-x (apply max xs))
  5.         (min-y (apply min ys)) (max-y (apply max ys))
  6.         (min-z (apply min zs)) (max-z (apply max zs)))
  7.     (max (* max-x max-y max-z)
  8.          (* max-x min-y min-z)
  9.          (* min-x max-y min-z)
  10.          (* min-x min-y max-z))))
  11.  
  12. (display (max-prod '(10 -10 15 -12) '(10 -12 13 -12) '(-11 -10 9 -12)))
Success #stdin #stdout 0s 50224KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
2160
https://ideone.com/GxKajf
language:
Scheme (guile 2.2.4)
created:
4 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!