fork download
copy 
  1. \ Confronto caratteri
  2. : e-una-A?  ( c -- flag )
  3.   [char] A = ;
  4.  
  5. 65 e-una-A? .  \ Stampa: -1 (vero)
  6.  
  7. \ Spazio
  8. : e-uno-spazio?  ( c -- flag )
  9.   [char]   = ;  \ Nota: spazio dopo [char]
  10.  
  11. 32 e-uno-spazio? .   \ Stampa: -1 (vero)
  12.  
Success #stdin #stdout 0.01s 5284KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
-1 61
https://ideone.com/iC2x8n
language:
Forth (gforth 0.7.3)
created:
15 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!