dockimbel

Red/System []

utf8-to-codepoint: func [ ; yields an integer >= 0 and < 1114112, or -1
	u [c-string!] ; should have length 1 to 4
	/local b1 b2 b3 b4
][
	either 1 = length? u
	[
			b1: as-integer u/1
			either b1 < 128 [

dockimbel

Red []

digit-nz:	charset "123456789"
digit:		append copy digit-nz #"0"
hex:		append copy digit "abcdefABCDEF"
sign: 		charset "+-"
exponent-e:	charset "eE"
dquot:		#"^""

exponent:   [ exponent-e opt sign some digit ]

dockimbel

Red [Needs: 'view]

view/tight [
	title "Tile game, by meijeru"
	style piece: button 60x60 [
		unless find [0x60 60x0 0x-60 -60x0] face/offset - empty/offset [exit]
		temp: face/offset face/offset: empty/offset empty/offset: temp
	]
	piece "1"  piece  "2" piece  "3" piece  "4" return
	piece "5"  piece  "6" piece  "7" piece  "8" return

dockimbel

Rebol [
	Title: "Red-Updater-Script"
	File: %red-updater.r
	Author: "Neelesh Chandola, @nc-x" 
	Description: {
		This Script updates your Red Installation with the latest master-branch binaries.
	}
	Instructions: {
		Please update the variable `path-to-red-executable` with appropriate 
		location of the Red executable on your system before running the script.

dockimbel

Comprehensions in Python the Jedi way

Beautiful is better than ugly. Explicit is better than implicit.

-- The Zen of Python

I frequently deal with collections of things in the programs I write. Collections of droids, jedis, planets, lightsabers, starfighters, etc. When programming in Python, these collections of things are usually represented as lists, sets and dictionaries. Oftentimes, what I want to do with collections is to transform them in various ways. Comprehensions is a powerful syntax for doing just that. I use them extensively, and it's one of the things that keep me coming back to Python. Let me show you a few examples of the incredible usefulness of comprehensions.

All of the tasks presented in the examples can be accomplished with the extensive standard library available in Python. These solutions would arguably be more terse and efficient in some cases. I don't have anything against the standard library. To me there is a certain

dockimbel

Red [needs: view]

turtle: #()

win: layout [ tfield: base 500x500 white draw [] 
              panel [
                history: text-list 180x350 data [] return 
                panel [ button "Save" [save request-file history/data]
                        button "Load" [commands: load request-file foreach cmd commands [process-cmd cmd]] ]
              ]

dockimbel

Red [
	Title: "Red O'clock"
	Author: "Gregg Irwin"
]

degree-to-xy: func [rad "radius" deg "degrees"] [
	as-pair (rad * sine deg) (rad * negate cosine deg)
]

sex-to-degree: func ["Sexagesimal to degrees" n] [n * 6]

dockimbel

Red [
	Title:   "Bubbles"
	Author:  [REBOL version "Gabriele Santilli" Red port "Gregg Irwin"]
	File: 	 %bubbles.red
	Tabs:	 4
	Needs:	 View
]

system/view/auto-sync?: no

dockimbel

Red [
	title:   "Paint"
	Author:  [REBOL version "Frank Sievertsen" Red port "Gregg Irwin"]
	File: 	 %paint.red
	Tabs:	 4
	Needs:	 View
	version: 0.0.1
]

draw-blk: copy []

dockimbel

Red [
	Title:   "Fill-pen Lab"
	Author:  "Gregg Irwin"
	File: 	 %fill-pen-lab.red
	Needs:	 View
]

to-color: function [r g b][
	color: 0.0.0
	if r [color/1: to integer! 256 * r]