fork download 
  1. scoop(vanilla). scoop(strawberry). scoop(chocolate).
  2.  
  3. cone(Top,Middle,Bottom):-scoop(Top), scoop(Middle), scoop(Bottom).
  4.  
  5. go:- setof(X+Y+Z, cone(X,Y,Z), List), length(List, N), write(N).
  6. go2:- cone(X,Y,Z), write(X+Y+Z), nl, fail.
  7. go3:- setof(X+Y+Z, (cone(X,Y,Z), X\=Y, Y\=Z, X\=Z), List), length(List, N), write(N),nl.
Success #stdin #stdout 0.02s 6204KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
https://ideone.com/UMP9e
language:
Prolog (swi 7.6.4)
created:
14 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!