fork(2) download 
  1. numWalls([], 0).
  2. numWalls(['w'|Tail], W) :-
  3.     numWalls(Tail, W1),
  4.     W is W1 + 1.
  5. numWalls([H|Tail], W):-
  6.     H \= w,
  7.     numWalls(Tail, W).
  8. :- numWalls([w,w,n,n,w,w,n,w,n,n,n,w], N), print(N).
Success #stdin #stdout 0.02s 6160KB
comments (?)
stdin 
Standard input is empty
stdout 
6
https://ideone.com/j0RHId
language:
Prolog (swi 7.6.4)
created:
11 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!