Southperry.net › Social › Rubik's Cube v
Fun programming puzzler

Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Linear Mode
Fun programming puzzler
Nikkey
Posting Freak
*****
Posts: 3,213
Threads: 466
Joined: 2008-07
#3
2010-11-11, 04:17 PM
151 without strings in Common LISP:
Code:
(do*((a'(1)(nconc a`(,c,v)))(c 0 0)(v 1(car a)))(())(format t"~{~A~}~%"a)(setf b a a())(dolist(d b)(if(= d v)(incf c)(setq a(nconc a`(,c,v))c 1 v d))))
Could shave off more in Arc, but meh.

Issue is probably that I don't have regex easily available or any string functions at all.
Find
Reply


Messages In This Thread
Fun programming puzzler - by Fiel - 2010-11-11, 02:36 PM
Fun programming puzzler - by Jedward - 2010-11-11, 02:53 PM
Fun programming puzzler - by Nikkey - 2010-11-11, 04:17 PM
Fun programming puzzler - by SaptaZapta - 2010-11-11, 04:40 PM
Fun programming puzzler - by Nikkey - 2010-11-11, 05:11 PM
Fun programming puzzler - by DrRusty - 2010-11-11, 05:44 PM
Fun programming puzzler - by KajitiSouls - 2010-11-11, 06:57 PM
Fun programming puzzler - by Stereo - 2010-11-11, 08:02 PM
Fun programming puzzler - by Russt - 2010-11-11, 08:05 PM
Fun programming puzzler - by Stereo - 2010-11-11, 08:38 PM
Fun programming puzzler - by Fiel - 2010-11-12, 08:10 AM
Fun programming puzzler - by SaptaZapta - 2010-11-12, 09:04 AM
Fun programming puzzler - by Stereo - 2010-11-12, 12:29 PM
Fun programming puzzler - by Dusk - 2010-11-12, 12:45 PM
Fun programming puzzler - by Spaz - 2010-11-12, 12:48 PM
Fun programming puzzler - by Fiel - 2010-11-12, 04:10 PM
Fun programming puzzler - by Russt - 2010-11-13, 02:16 AM

Forum Jump:


Users browsing this thread: 1 Guest(s)