Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
arreglo
Language:
Ada
Assembly
Bash
C#
C++ (gcc)
C++ (clang)
C++ (vc++)
C (gcc)
C (clang)
C (vc)
Client Side
Clojure
Common Lisp
D
Elixir
Erlang
F#
Fortran
Go
Haskell
Java
Javascript
Kotlin
Lua
MySql
Node.js
Ocaml
Octave
Objective-C
Oracle
Pascal
Perl
Php
PostgreSQL
Prolog
Python
Python 3
R
Rust
Ruby
Scala
Scheme
Sql Server
Swift
Tcl
Visual Basic
Layout:
Vertical
Horizontal
objeto :- write('{'), read(X), (X='atributo'->atributo; write('')), write('}'). atributo :- cadena, write(':'), valor,a1. a1 :- read(X), (X='atributo'->write(','),atributo; X='fin'->write('')). valor :- read(X), (X='numero'->numero; X='cadena'->cadena; X='metodo'->metodo; X='arreglo'->arreglo; X='objeto'->objeto). metodo :- write('"function() {'),instruccion,write('return '), read(X),write(X),write(';}"'). arreglo :- write('['), read(X), (X='valor'->valor; write('')), write(']'). instruccion :- read(X), (X='asignacion'->asignacion; X='decision'->decision; X='fin'->write('')). decision :- write('if ('),read(X),write(X),write(')'),verdadero, falso. verdadero :- write('{'),instruccion,write('}'). falso :- write('else{'),instruccion,write('}'). asignacion :- read(X),write(X),write('='),read(Y),write(Y),write(';'),instruccion. cadena :- write('"'),read(X),write(X),write('"'). numero :- read(X),write(X). :- objeto.
[
+
]
Show input
edit mode
|
history
|
discussion