Recent public codes are listed below. You can filter them by the following programming languages:
- view
- All
- Ada
- Assembler
- Assembler
- AWK (gawk)
- AWK (mawk)
- Bash
- bc
- Brainf**k
- C
- C#
- C++
- C++0x
- C99 strict
- CLIPS
- Clojure
- COBOL
- COBOL 85
- Common Lisp (clisp)
- D (dmd)
- Erlang
- F#
- Factor
- Falcon
- Forth
- Fortran
- Go
- Groovy
- Haskell
- Icon
- Intercal
- Java
- JavaScript (rhino)
- JavaScript (spidermonkey)
- Lua
- Nemerle
- Nice
- Nimrod
- Objective-C
- Ocaml
- Oz
- Pascal (fpc)
- Pascal (gpc)
- Perl
- Perl 6
- PHP
- Pike
- Prolog (gnu)
- Prolog (swi)
- Python
- Python 3
- R
- Ruby
- Scala
- Scheme (guile)
- Smalltalk
- SQL
- Tcl
- Text
- Unlambda
- VB.NET
- Whitespace
-
1 2 3 4 5 6 7 8 9
|c number| [ number:=0. [ (c := stdin next) asciiValue ~= 10 ] whileTrue: [number := (number * 10) + (c asciiValue) - 48.]. number ~= 42 ] whileTrue:
...
-
1 2 3 4 5 6 7 8 9
|c number| [ number:=0. [ (c := stdin next) asciiValue ~= 10 ] whileTrue: [number := (number * 10) + (c asciiValue) - 48.]. number ~= 42 ] whileTrue:
...
-
1 2 3 4 5 6 7 8 9
|c number| [ number:=0. [ (c := stdin next) asciiValue ~= 10 ] whileTrue: [number := (number * 10) + (c asciiValue) - 48.]. number ~= 42 ] whileTrue:
...
-
1
print "Kode Multus"
-
1 2 3 4 5 6 7 8 9
...
-
1
( {4 2} ) print
-
1
( {4, 2} ) print
-
1
( {} ) print
-
1
( {} + {} ) print
-
1
( [] + {} ) print
-
1
( {} + {} ) print
-
1
( {} + [] ) print
-
1
( [] + [] ) print
-
1
( 1 + 1 ) print
-
1
2 raisedTo: 10
-
1
2 raisedTo: 10
-
1 2 3 4 5 6 7 8 9
| rs a | rs := ReadStream on: 'Mary had a little `laptop, its screen was white as snow'. [rs position < rs size ] whileTrue:[ a := rs upTo: $ . Transcript cr; show: a ]. rs reset. Transcript show: (rs peek) printString.
-
1 2 3 4 5 6 7 8 9
| rs a | rs := ReadStream on: 'Mary had a little `laptop, its screen was white as snow'. [rs position < rs size ] whileTrue:[ a := rs upTo: $ . Transcript cr; show: a ]. rs reset. Transcript show: (rs peek) printString.
-
1 2 3 4 5 6 7 8 9
| rs a | rs := ReadStream on: 'Mary had a little `laptop, its screen was white as snow'. [rs position < rs size ] whileTrue:[ a := rs upTo: $ . Transcript cr; show: a ]. rs reset. Transcript show: (rs peek) printString.
-
1 2 3 4 5 6 7 8 9
| rs a | rs := ReadStream on: 'Mary had a little `laptop, its screen was white as snow'. [rs position < rs size ] whileTrue:[ a := rs upTo: $ . Transcript cr; show: a ]. rs reset. Transcript show: (rs peek) printString.
-
1 2 3 4 5 6 7 8 9
| rs a | rs := ReadStream on: 'Mary had a little `laptop, its screen was white as snow'. [rs position < rs size ] whileTrue:[ a := rs upTo: $ . Transcript cr; show: a ]. rs reset. Transcript show: (rs peek) printString.
-
1 2 3 4 5 6
| rs read| rs := ReadStream on: 'Mary had a little laptop, its screen was white as snow'. [rs position < rs size]whileTrue:[ read:=rs upTo: $ . Transcript cr; show: read printString. ]
-
1 2 3 4 5 6
| rs read| rs := ReadStream on: 'Mary had a little laptop, its screen was white as snow'. [rs position < rs size]whileTrue:[ read:=rs upTo: $ . Transcript cr; show: read printString. read cr]
-
1 2 3 4 5 6 7 8 9
| rs a | rs := ReadStream on: 'Mary had a little `laptop, its screen was white as snow'. [rs position < rs size ] whileTrue:[ a := rs upTo: $ . Transcript cr; show: a ]. rs reset. Transcript show: (rs peek) printString.
-
1 2 3 4 5
| rs read| rs := ReadStream on: 'Mary had a little laptop, its screen was white as snow'. [rs position < rs size]whileTrue:[ read:=rs upTo: $ . Transcript cr; show: read printString]
-
1 2 3 4 5 6
| rs read| rs := ReadStream on: 'Mary had a little laptop, its screen was white as snow'. [rs position < rs size]whileTrue:[ read:=rs upTo: $ . Transcript show: read printString. rs cr ]
-
1 2 3 4 5 6 7 8 9
| rs a | rs := ReadStream on: 'Mary had a little `laptop, its screen was white as snow'. [rs position < rs size ] whileTrue:[ a := rs upTo: $ . Transcript cr; show: a ]. rs reset. Transcript show: (rs peek).
-
1 2 3 4 5
| rs read| rs := ReadStream on: 'Mary had a little laptop, its screen was white as snow'. [rs position < rs size]whileTrue:[ read:=rs upTo: $ . Transcript show: read printString.rs cr]
-
1 2 3 4 5
| rs read| rs := ReadStream on: 'Mary had a little laptop, its screen was white as snow'. [rs position < rs size]whileTrue:[ read:=rs upTo: $ . Transcript show: read printString]
-
1 2 3 4 5 6 7 8 9
| rs a | rs := ReadStream on: 'Mary had a little `laptop, its screen was white as snow'. [rs position < rs size ] whileTrue:[ a := rs upTo: $ . Transcript cr; show: a ]. rs reset. Transcript show: (rs peek)