[Jprogramming] Challenge 11 Wave the Flag
Jose Quintana
jmquin at hotmail.com
Mon Jun 4 05:20:47 HKT 2012
One more time, sending only the trouble-making text:
_______________________________________________________________
Trying again and adding more...
A neat measure of neatness,
neat=. #@:|:@:":@:(5!:2)@< neat e ('waveVC' ; 'waveJQ' ; 'waveR' ; 'waveR0' ; 'cheat')┌───┬───┬───┬───┬──┐│117│114│108│102│94│└───┴───┴───┴───┴──┘ but it is not invulnerable.
_______________________________________________________________
I agree, counting the number of tokens (especially focusing on the string used to define the verb) is not particularly productive, nt=. # @: ;: @: lr @: < nt e ('waveVC' ; 'waveJQ' ; 'waveR')┌──┬──┬──┐│41│40│32│└──┴──┴──┘
Counting the number of structural components is, in my opinion, better as a measure of the complexity of (honest) fixed tacit verbs,
nsc=. # @: (<S:0) @: (5!:2) @: < nsc'nsc'11 nsc0=. [: # [: (<S:0) [: (5!:2) < nsc0 e ('nsc';'nsc0')┌──┬──┐│11│11│└──┴──┘ nsc1=. # @: ((<S:0) @: ((5!:2) @: <)) nsc e ('nsc';'nsc0';'nsc1')┌──┬──┬──┐│11│11│11│└──┴──┴──┘
nt e ('nsc';'nsc0';'nsc1')┌──┬──┬──┐│15│11│15│└──┴──┴──┘ waveR0=. [: <"_1 [: |.&|:^:(<5) [: (|."_1~ ([: >. +/ .=&' ' % _2:)) [: > ;:
nsc e ('waveVC' ; 'waveJQ' ; 'waveR' ; 'waveR0')┌──┬──┬──┬──┐│32│31│28│28│└──┴──┴──┴──┘
More information about the Programming
mailing list