RosettaCodeData/Task/Longest-string-challenge/Zkl/longest-string-challenge.zkl
2017-09-25 22:28:19 +02:00

16 lines
476 B
Text

fcn longer(a,b){ //-->0,1,2 (same, a longer, b longer)
while(a and b){a=a.del(0); b=b.del(0);}
if (not a and not b) return(0); // a & b same length
if(a) return(1); // a is longer
2 // b is longer
}
text:=a:=ask("text: ").strip();
while(b:=ask("text: ").strip()){
switch(longer(a,b)){
case(0){ text=String(text,"\n",b) } // a.len()==b.len()
case(1){ } // a.len>b.len()
case(2){ text=a=b } // a.len>b.len()
} //switch
}
println(text);