fork download 
  1. \ Confronto caratteri
  2.  
  3. : is-an-A?  ( c -- flag )
  4.   [char] A = ;
  5.  65 is-an-A? .  \ Stampa: -1 (vero)
  6.  
  7. \ Spazio
  8.  
  9. : is-an-space?  ( c -- flag )
  10.   BL = ;   
  11.  32 is-an-space? .   \ Stampa: -1 (vero)
Success #stdin #stdout 0.01s 5316KB
comments (?)
stdin 
Standard input is empty
stdout 
-1 -1
https://ideone.com/slxXMh
language:
Forth (gforth 0.7.3)
created:
11 days 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!