Time for an 2014 update…

Task/Executable-library/Deja-Vu/executable-library-1.djv

@@ -0,0 +1,36 @@
+local hailstone:
+	swap [ over ]
+	while < 1 dup:
+		if % over 2:
+			#odd
+			++ * 3
+		else:
+			#even
+			/ swap 2
+		swap push-through rot dup
+	drop
+
+if = (name) :(main):
+	local :h27 hailstone 27
+	!. = 112 len h27
+	!. = 27 h27! 0
+	!. = 82 h27! 1
+	!. = 41 h27! 2
+	!. = 124 h27! 3
+	!. = 8 h27! 108
+	!. = 4 h27! 109
+	!. = 2 h27! 110
+	!. = 1 h27! 111
+
+	local :max 0
+	local :maxlen 0
+	for i range 1 99999:
+		dup len hailstone i
+		if < maxlen:
+			set :maxlen
+			set :max i
+		else:
+			drop
+	!print( "number: " to-str max ", length: " to-str maxlen )
+else:
+	@hailstone

Task/Executable-library/Deja-Vu/executable-library-2.djv

@@ -0,0 +1,12 @@
+!import!hailstone
+
+local :counts {}
+set-default counts 0
+for i range 1 99999:
+	set-to counts swap ++ counts! dup len hailstone i
+
+local :maxlen 0
+for k in keys counts:
+	if < maxlen counts! k:
+		set :maxlen counts! k
+!print( "Maximum length: " to-str maxlen )