PHP and Javascript solutions to moderate challenges #33 - Double squares, #54 - Cash register, and #135 Word chain

Author: pascal-bourut

moderate/135 - Word chain/135.js

@@ -0,0 +1,51 @@
+// https://www.codeeval.com/open_challenges/135/
+
+
+function word_chain(nodes, key, used , max ){
+    if( 'undefined' !== typeof(nodes[key]) ){
+        var new_max = max;
+        for( var i=0, cnt = nodes[key].length ; i < cnt ; i++){
+            var word = nodes[key][i];
+            if( 'undefined' === typeof(used[word]) ){
+                var next_used = {};
+                for(var k in used){
+                    next_used[k] = true;
+                }
+                next_used[ word ] = true;
+                var m = word_chain( nodes, word.substr(-1,1) , next_used, max + 1);
+                if( m > new_max ){
+                    new_max = m;
+                }
+            }
+        }
+        max = new_max;
+    }
+    return max;
+}
+
+var fs = require("fs");
+fs.readFileSync(process.argv[2]).toString().split('\n').forEach(function (line) {
+    line = line.trim();
+    if( line !== '' ){
+        var max = 0;
+        var nodes = {};
+        var words = line.split(',');
+        var len = words.length;
+        var i = len;
+        while(i--){
+            var word = words[i];
+            if( 'undefined' === typeof(nodes[word[0]]) ){
+                nodes[word[0]] = [];
+            }
+            nodes[ word[0] ].push( word );
+        }
+
+        for(var k in nodes){
+            var result = word_chain( nodes, k , {}, 0);
+            if( result > max ){
+                max = result;
+            }
+        }
+        console.log( max > 1 ? max : 'None' );
+    }
+});

moderate/135 - Word chain/135.php

@@ -0,0 +1,88 @@
+<?php
+header('Content-Type: text/plain; charset=utf-8');
+
+// https://www.codeeval.com/open_challenges/135/
+
+function word_chain($nodes, $key, $used = array(), $max = 0 ){
+    // echo $key.' '.var_export($used, true) . "\n";
+    if( isset($nodes[$key]) ){
+        $new_max = $max;
+        for($i=0, $cnt = count($nodes[$key]) ; $i < $cnt ; $i++){
+            $word = $nodes[$key][$i];
+            if( !isset($used[$word]) ){
+                $next_used = $used;
+                $next_used[$word] = true;
+                $m = word_chain( $nodes, substr($word,-1,1), $next_used, $max + 1);
+                if( $m > $new_max ){
+                    $new_max = $m;
+                }
+            }
+        }
+        $max = $new_max;
+    }
+    return $max;
+}
+
+if( isset($_GET['f_i_l_e']) && $_GET['f_i_l_e'] ) $argv[1] = $_GET['f_i_l_e'];
+
+if( isset($argv[1]) && $argv[1] ){
+    $filename = $argv[1];
+    if( file_exists($filename) ){
+        if( is_readable($filename) ){
+            $fp = fopen($filename, 'r');
+            if( $fp ){
+                while ( $fp && !feof( $fp ) ) {
+                    $line = trim(fgets($fp));
+                    if( $line ){
+                        // echo $line."\n";
+                        $max = 0;
+                        
+                        $nodes = array();
+                        
+                        $words = explode(',', $line);
+                        $len = count($words);
+                        $i = $len;
+                        while($i--){
+                            $word = $words[$i];
+                            if( !isset($nodes[$word[0]]) ){
+                                $nodes[$word[0]] = array();
+                            }
+                            $nodes[ $word[0] ][] = $word;
+                        }
+                        
+                        // print_r($nodes);
+                        
+                        $keys = array_keys($nodes);
+                        $i = count($keys);
+                        while($i--){
+                            $result = word_chain( $nodes, $keys[$i] );
+                            if( $result > $max ){
+                                $max = $result;
+                            }
+                        }
+                        // echo $max."\n";
+                        echo /*$line.': '.*/( ( $max > 1 ) ? $max : 'None' ). "\n";
+                    }
+                    
+                }//
+                fclose( $fp );
+            }
+            else{
+                echo '!fp'."\n";
+            }
+        }
+        else{
+            echo '!readable'."\n";
+        }
+    }
+    else{
+        echo '!file_exists'."\n";
+    }
+}
+else{
+    echo '!argv[1]'."\n";
+}
+
+exit(0);
+
+?>

moderate/135 - Word chain/test.txt

@@ -0,0 +1,3 @@
+soup,sugar,peas,rice
+ljhqi,nrtxgiu,jdtphez,wosqm
+cjz,tojiv,sgxf,awonm,fcv

moderate/135 - Word chain/test2.txt

@@ -0,0 +1,40 @@
+bqtvixz,nljywm,jftap,utyx,trgcxm,lmjbai,mgqpls,rktm,yka,fea,fem,mwkia,impbyot,zdrex,dezuxm,lbyjmkf,vkz,zykmdo,cjzioe,xjqdm,xltwhrn,ludqfs
+szf,doyfvw,lhgoqx,gkpdh,ozfgple,mqfpvr,ajw,zecnpuv,xmbkvg,yvipkc,disectu,dgk,nix,yrwc,pcnfjr,agxykop,jkc,frnl,laqpecr,wkhf,xncq,itsvk,rufzgnt,ojafd,mugbcd,ausrldh,cpysfw,shkemf
+qlwzj,vkrwuq,bukw,ejsaxmi,nmgu,zhlu,dvaqjeu,lyg,uor,hlynqv,nejshup,cekva,fbtpxyg,jlbve,iqlzfc,uhj,ohvmc,wlayn,udxg,donlw,nicps,mxdutqh
+mafsk,qznwfx,wxymvaz,dnckwz,gpre,ulkofjd,twc,wmy,nqytrbc,ump,epcizh,smu,tob,yam,yhpvd,uetr,vzhapf,fxkhbn,wpvdx,kqxtbda,vln,osimeup,hdoz,drxs,thvdzjq,oknps,rjh,baolg,sjpyw,qxpbfya
+uzk,hpit,flunzs,hksj,qwfsjb,zxfin,wbaij,rgocq,aygsk,agpbyxd,xqowi,dqhso,ykzi,alhbvc,ymaufn,smdwxf,nthwe,ijutc,hielfdr,ilhgmy,irxt,gel,uoajxbt,geoip,uhlt,tysa,jclxfut,bpzvdyr,zhl
+kecyx,vcfntzx,rqua,bskzq,sxhzly,gkdlo,jnx,xesur,xdfkyq,atvnim,zoq,wgubht,zwoxbf,gsbye,ynzfvbw,zqaes
+jlqrw,rfpc,dunex,ewo,ovw,eiscvkz,uzjhklb,yhxngik,njcueg,hvf,tpwxfek,hnu,mghut,sjcnzge,stz,plvt
+lohak,fhm,bsjx,dewig,dwcro,bvhk,gysonm,hgzun,vwp,agjf,ail,tuk,nxc,ixwbrp,puncid,ezf,lsqbd,yet
+ace,quzah,klc,ruej,yuer,sqdha,kun,lhs,rseaqdp,uqbvdt
+lhgixn,hvb,vbntz,ngwvcs,hpfvzt,zcdbiq,fvd,nhbdr,yjuvh,wye,rqcztam,nit,qajcy,zwnguhp,zyi,bpwvmy,vbwn,zjysfe
+nbmpjce,mni,odi,cmnwkrz,qru,rznpy,apsbu,fmhrs,zedx,xwmvzhc,msj,wikcf,jtd,vzp,quncpy,vcjyp,mzy,gwazist,nhjo,tqgdhz,wofgy,uazmgp,xnkr,fqk,iwfxcv,wfo,fjxtari,lquwict,isndz,eom,uljiofy,ujo,mybokj,ucim,qjhsbmc
+azhbe,hbiqmf,pvw,iuh,etpla,evsf,ptkzeu,ftzq,ymabz,fgbliwu,ayvizgt,vfwkim,ktxivf,bptze,zgs,ampjli,iwasjh,yunmwox,uqrznv,vuydt,pwtoea,emlsab,ori,tnmi,zgvbu,muxo,ctv,rzlyb,lwvce,amzjbn,zpnwgsi,wrouki,agnvixk,fhgnwe
+dqhebug,vidgbne,krlen,zahtr,aucmg,ebdvs,rjbfd,giawn,fdzgq,gaulxnr,grv,bujfhx,ndhlt,tjb,gpx,lwvrkqi,gqfvdyc,ivbnqdy,ozk,wulazf,epsvd,fakizyu,ehwtgb,rbcgh,skore,skvdrpu,nfh,olas,yuoi,abqd,btmn,pxgdkrl
+svklpbr,gvfdtje,kxlzmps,sjvkmnx,hlc,tiv,tofgzm,kwbdjxn,afku,woi,zdh,jba,dtrph,faqd,ngarevp,hvmdks
+yhbeum,xtni,sivzy,shramzp,nsbwg,ipronyw,jghqt,tkxwn,jpog,udqi,qlrkiy,bta,guv,vbh,qxua,eas,bvezq,abctoy,akfd
+nhlbet,tiys,ldb,xjwhaf,pod,jkexbvy,vlgktde,mfohqiu,zmoqn,iefqah,hezk,oys,nepio,vax,pbaod,wigmluc,aqyl,ubs,rla,uwbyo,ynmr,sbwuazv,prbqouh,brxk,rtypd,zlifsxj,drt,vshz,gfxhrw,bae,tyscbfk,fairu,dpl,mcpgja,qijw
+tipmsy,szf,ysrx,fnodkc,mbs,kupnif,ehz,ehylpo,iec,flyhsw,nghlvr,nkl,grvtfmp,brnixzw,tczbpux,yltdqhi,zxoirus,joptnek,dcixms,wqxa,zyvr,sjchg,cixwm,glt,vepsl
+goycw,gpkwaw,gtdpmxuyw,gvqfcslw,gptflxmrw,gpluw,gdlwtew,ghamijrfw,gdpyekw,giymxew,gjthdow,gnzpukw,gigdmhsw,gfclvsbw,gvscgmiw
+bts,nmgb,zkrseni,mdsug,tvi,fbpk,won,atzmys,ptmbiw,tma,bqvn,pueo,qcsag,rcb,erjx,uvkz,vkrm,gipetsn,uhtb,usbdaw,puiaslh,qpgyoa,xjmo,ghfkbv,rcsvzm,vmgisu,ilsut,ltdpw,twazpse,ofgqp
+qoep,zwjvr,nwa,jrduzp,kcbm,cbeiqh,lxgso,mxrc,zaybtmr,zmaqjvi,yoxdifl,zlruy,jhrfwlt,etvbuyp,xqozdy,uya,bueypw,zhkli,knojtl,hwr,ehyqr,ndhor,veyh,zbelfq,mjyea,rmhs,oqb
+roqk,tqg,fcnw,slryx,vmoj,uopagew,drot,yluifck,mkzpoae,jkbwes,lnz
+nhgaik,ldf,efhcuqn,lwvmp,qszet,bjlrva,gvd,uko,low,blwyhfz,tzdorg,ythmde,bcps,eknv,wsdjlp,why,zfrutg,ahei,dirpt,iqz,ltz,rbsy,dkthngp,hpxgo
+zmba,qylz,lubztg,oie,ytufcda,eopx,pnzi,vosydkh,xharb,ofyzj,uym,phqe
+hnyzxws,rfsn,vtjx,rcdq,gyoqz,sed,mhyxglu,lkmqo,lamvwj,eijv,rlnmuwz,yrj,rpzoge,dqx,lardm,fotkp,cyxe,bfyhgxm,fpixd,xiwpskm,yspzq,korh,xbedju,bhzd,rktdwgx,odaqbnx,yembzk,fwu,avwf
+czjodbw,ifd,qripxze,xgf,obrlx,ghaqs,vcsgp,sac,xfhln,noehq,cbkmd,dfpiwe,ulyzxsn,zqnardb,yzkxmcg,bzj
+buskq,dbxv,abtki,odxkwng,twnrdau,aqjgdbo,ogkazw,tvfz,eqxu,zny,lwf,tbkza
+xdki,usgpo,awytgfn,ubzhy,ctdvfn,vmozyl,qvkntfm,kdbr,bhqoge,voq,kvo,vedalyz,unhxpot,twxpuc,fkdcjr,kytm,njquzw,msfu
+sgxbhqr,dkbmy,znj,ojwthke,hpmn,zjioweq,nodyzef,gzqj,dptx,uxqre,qsmblz
+glk,rsvj,lmthry,kevf,wryap,lsmey,ezqflr,vhqy,hkn,vmrcun,yqks,xry,rgdat,tvmqb
+waug,tpsue,fdhc,kpir,ubhadl,wzymvtb,pyft,qgs,irh,aobgpy,ulzviqt,oyfqm,qzurxn,ipdq,pfekyq,yhfbik,zfcw,rqx,yzeur,lrx,qwcs,spzdl,cyndex,rwjz,jpdkfmi,fykreip,zmfan,ljz,bpv,axydi,miyapt,aqczu
+khx,ugthzm,joaq,owqxf,cxkjn,skcolg,wvflho,vznj,wmsg,lxedg,yvrxi,ryfi,vxcu,emfjux,gysbr,rohbfp,lre,sqgvonc,yvmkni,lqzkvcj,kyfb,fbgtcia,uwqlr,tpjcm,khux,ylhn,qasivbr,ety,pezxqw,vmfin,xhqo,eifruzh
+wioma,lmh,zlwyx,tcw,oqxwtbd,twqy,mignp,exjlih,nwculr,ywtho,ckf,klwtyp,zcmpvxj,bfrmwo,wzagim,nrpdbh
+jdpz,jnz,uths,ikwxolv,hrnegct,njzhfgw,usb,ozrf,ceyz,ofsb,wmj,zxr,smh,afq,rwoksdy,ncp,ufb,ecyd,sxi,sqo,koqyax,xzcdtp,bild,gtfuo,kryfsju,opmu
+nxcohst,chkrms,tweao,wtvudms,jiw,duorhvt,yvkxahd,mrf,nlaf,was,mvn
+japcxnq,gnrbxqk,fbp,fkevu,abkdfvq,xgc,tqowy,oszwqa,ohrnbzx,xohtqk,wgold,han,ucxlz,eldrw,gkis,pglfcwd,utem,cmho,far,hbug,orh,nzxa,sdyvguc,mtvl,bpio,jidq,cawz,faywirp,qezunv,bdigcl
+hbwdezkj,hntpxj,hngkej,hdjnlj,hgmbyj,hkatwj,hakqj,hjwkyj,huoynmj,hnhejkwlj,hqigj,hzploiegj,hybjmfj,hgsjj,hhnsj,hachtej,hvzkxj,hwyfj,hvaqj,hdkjboj,hmeurj,hoanj,hroaxcpdj,hgtqjdlj,hdiujqj,hwtyj,hvoefxcjj,hybej
+hdmt,osetawh,ahjuq,qfltczh,boead,xieb,powxuhf,ksm,fimpeuv,ybcq
+emltzk,qkm,nhj,jdecnos,paqu,utvqg,btydmjx,uoy,ycv,vnqszr,qrfyo,xzrp,gkcnsw,riqytg,vlxeuh,bimptyu,pgio,ljdpaz,lxwrf,pwndb,pnc,oulbqhe,smfid,amcf,bsev,pikz
+wtsdk,gmqdl,vftj,qfkejah,ngvylbu,edklrax,vpztq,wxqebi,inf,dhl,yfsvrg,iwyu,zuebx,dfoc,qyizcf,eiqyhfv,iyrg,nmeqilr,dyx,ztnusg,fkuy,dlmiszx,bia,cdj,ngjbdp,qun,wjzig,rhimw,hqtn,rcqg,tkuwa,ukpewbn,nmid,boc,nrbzqm
+azonem,thipxv,uwexs,vuqe,oax,lxw,cke,tcmoslw,vau,dscmukq,ydfait,jkm,wnrzam,dglz,duxoz,swkufon,cop,qbifu,qgywxk,jiftea,rtmva,fwx,thi,thd

moderate/33 - Double squares/33.js

@@ -0,0 +1,25 @@
+// https://www.codeeval.com/open_challenges/33/
+var first = true;
+var fs = require("fs");
+fs.readFileSync(process.argv[2]).toString().split('\n').forEach(function (line) {
+    line = line.trim();
+    if( line !== '' ){
+        if( first ) {
+            // You should first read an integer N, the number of test cases. 
+            first = false;
+        }
+        else{
+            // console.log('-------------------- ' + line);
+            var number = Number(line);
+            var i = (Math.sqrt(number)>>0) + 1;
+            var total = 0;
+            while( i-- ){
+                var sqrt = Math.sqrt( number - i*i );
+                if( sqrt == (sqrt >> 0) ){
+                    total++;
+                }
+            }
+            console.log( (total / 2)>>0 );
+        }
+    }
+});

moderate/33 - Double squares/33.php

@@ -0,0 +1,57 @@
+<?php
+header('Content-Type: text/plain; charset=utf-8');
+
+// https://www.codeeval.com/open_challenges/33/
+
+if( isset($_GET['f_i_l_e']) && $_GET['f_i_l_e'] ) $argv[1] = $_GET['f_i_l_e'];
+
+if( isset($argv[1]) && $argv[1] ){
+    $filename = $argv[1];
+    if( file_exists($filename) ){
+        if( is_readable($filename) ){
+            $fp = fopen($filename, 'r');
+            if( $fp ){
+                
+                $first = true;
+                
+                while ( $fp && !feof( $fp ) ) {
+                    $line = trim(fgets($fp));
+                    if( $line !== '' ){
+                        if( $first ){
+                            $first = false;
+                        }
+                        else{
+                            $total = 0;
+                            $i = (sqrt($line/2)>>0) + 1;
+                            while( $i-- ){
+                                $sqrt = sqrt( $line - $i*$i );
+                                if( $sqrt == ($sqrt >> 0) ){
+                                    $total++;
+                                }
+                            }
+                            echo $total . "\n";
+                        }
+                    }
+                    
+                }//
+                fclose( $fp );
+            }
+            else{
+                echo '!fp'."\n";
+            }
+        }
+        else{
+            echo '!readable'."\n";
+        }
+    }
+    else{
+        echo '!file_exists'."\n";
+    }
+}
+else{
+    echo '!argv[1]'."\n";
+}
+
+exit(0);
+
+?>

moderate/33 - Double squares/test.txt

@@ -0,0 +1,6 @@
+5
+10
+25
+3
+0
+1

moderate/33 - Double squares/test2.txt

@@ -0,0 +1,7 @@
+0
+1
+2
+4
+8
+16
+32

moderate/54 - Cash register/54.js

@@ -0,0 +1,54 @@
+// https://www.codeeval.com/open_challenges/54/
+
+var bills_coins = {
+    'ONE HUNDRED': 10000,
+    'FIFTY': 5000,
+    'TWENTY': 2000,
+    'TEN': 1000,
+    'FIVE': 500,
+    'TWO': 200,
+    'ONE': 100,
+    'HALF DOLLAR': 50,
+    'QUARTER': 25,
+    'DIME': 10,
+    'NICKEL': 5,
+    'PENNY': 1
+};
+
+var fs = require("fs");
+fs.readFileSync(process.argv[2]).toString().split('\n').forEach(function (line) {
+    line = line.trim();
+    if( line !== '' ){
+        var tmp = line.split(';');
+        
+        var pp = Number(tmp[0]) * 100;
+        var ch = Number(tmp[1]) * 100;
+        var result = null;
+        if( ch < pp ){
+            result = 'ERROR';
+        }
+        else if( ch == pp ){
+            result = 'ZERO';
+        }
+        else{
+            var diff = ch - pp;
+            result = [];
+
+            for( var k in bills_coins ){
+                var v = bills_coins[k];
+                if( diff >= v ){
+                    var cnt = Math.floor(diff / v);
+                    // console.log(cnt);
+                    for(var i=0 ; i < cnt ; i++){
+                        result.push( k );
+                    }
+                    diff -= cnt * v;
+                    diff = Math.round(diff);
+                    if( diff===0 ) break;
+                }
+            }      
+            result = result.join(',');
+        }
+        console.log(result);
+    }
+});