view samples/hashset.tp @ 341:6871e72b6db2

Added int64 message to string type
author Michael Pavone <pavone@retrodev.com>
date Sun, 05 Apr 2015 22:48:59 -0700
parents cbc92ee13f35
children
line wrap: on
line source

#{
	main <- {
		inset <- #["foo" "bar" "foobar" 1 2 3]
		notin <- #["baz" "qux" "bazqux" 4 5 6]
		myset <- sets hash
		foreach: inset :idx el {
			myset add: el
		}
		foreach: inset :idx el {
			if: (myset contains?: el) {
				print: "set contains " . el . "\n"
			} else: {
				print: "set doesn't contain " . el . "\n"
			}
		}
		foreach: notin :idx el {
			if: (myset contains?: el) {
				print: "set contains " . el . "\n"
			} else: {
				print: "set doesn't contain " . el . "\n"
			}
		}
	}
}