Skip to content

Instantly share code, notes, and snippets.

@leetwinski

leetwinski/multiplication.clj

Last active November 10, 2017 08:59
Show Gist options
  • Save leetwinski/fe64043aa24ccf0b3e2f6bce5aa4d9b8 to your computer and use it in GitHub Desktop.
Save leetwinski/fe64043aa24ccf0b3e2f6bce5aa4d9b8 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. leetwinski revised this gist Nov 10, 2017. 1 changed file with 2 additions and 2 deletions.
    4 changes: 2 additions & 2 deletions multiplication.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -3,9 +3,9 @@
    (let [n (+ v (* m (Integer/parseInt (str ch))))]
    [(conj acc (rem n 10))
    (quot n 10)]))
    [[] 0]
    [nil 0]
    (reverse num-str))]
    (apply str (reverse (if (zero? v) acc (conj acc v))))))
    (apply str (if (zero? v) acc (conj acc v)))))

    (mul "9876545679" 7)
    ;;=> "69135819753"
  2. leetwinski created this gist Nov 9, 2017.
    14 changes: 14 additions & 0 deletions multiplication.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,14 @@
    (defn mul [num-str m]
    (let [[acc v] (reduce (fn [[acc v] ch]
    (let [n (+ v (* m (Integer/parseInt (str ch))))]
    [(conj acc (rem n 10))
    (quot n 10)]))
    [[] 0]
    (reverse num-str))]
    (apply str (reverse (if (zero? v) acc (conj acc v))))))

    (mul "9876545679" 7)
    ;;=> "69135819753"

    ;; multiply huge number
    (mul (slurp "./num10k.txt") 9)
    1 change: 1 addition & 0 deletions num10k.txt
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1 @@
    5557762148652228814196589539346518457124715528242259372762156695628976876994635275919482764759925176846142457286611393237419932516961539259466217986481426659277156854866188845221637832974591525363722431412763689968556561999365297254569733666443538828491114286281911676631483528946423777337213718965958473446169287922916396483863693718314841661519493218886441658133793428136854455516487686252999646355759465578973156348473622238374523281663314595537865687764122285414827966627381232345838579869144722426927411439542181763879732833139843969178436216568176726533731699889456695533899312959474221362628286738827396631314936555521436354245193576798756636449779617247361295148986398261529119722171786469294422698829679988327249527962486124874458546115823496687454983416648579468612268633193619141713126431295117937143735384515374222334725693475387863844252894559396452777564233666772519438733551438216837972893991462835357662496382865896733233212222647871744293665955957932527426477725597252196329345492868469696997951144854487753433514353418476722746999378587546972988559497525281781856622891189583847657732129848776388363834871438388126531254362387161279514725343688561226826928889778666213732343617871581737366548269676786697795415643799925642236168255669728458356139968765137395657552256441646486521324747545916516661552772211641475335418327692278883765551559815718679521432665216526565347539652726375284544521328385322387585582923589825798232476869877191221916892172767324597657782332866221264312871829713112173824742544916428738549461627285637765241638531455644717232749872567468759526146644865511743487167477516626872457498696913191767737276263139722328919911857294679865686381451436621651644966216571836535718392952276786814615892457572636991441215746921465194836444119256925179368448428212537232977864241762353913998912973571961753622313195167991324861221966678425437938974285148791563553769779887485119557952812355153498432899192281288717215431977385257797878788645715479665612384544249259694955142612288318947585266277123757927813457516641999259788365931479886299889469884793661271975949138918598966937836571921265282327419874227387449229684797433739298321935753479721473469838959121416587851456558586351571167338458967646938992825291137988472365651563337559953868133698654232265978357168954563474669695381279176236555329991315636281973236665873711521849874212862596593671128994755354918421579327237261751129456768999941445883325634866187952384253762414959733565579352386775279624667749276889483377689325141549348418561195334824756956711669487172852626648464494968189336823441779889785369681345113325436165474286599528634562885311855236859896486113292655429161695656582868996115259523531614999154682467527946544468596389951672618765129436756893881573667965684853693814918687514536444723691497793342433918414789895727327764151976835511335615158486682867142126411849522965587669824634258763744883677296539854584187234835375773939494296352526725662232247914333323122741685761481399457616735587452288913452815962428568159111939726446971156572941686826998591149369667534172948619192647916783214951183471128222325738946992777437777751691995139337879827383382164143194499494984544187579849389949242387822143171243377464815342583236122581813871278722721885536691836656361868771124524849814466947792573453263689234852961392623541492152463419165714356547993573412194549222111553664377674182256634375318823984195632225427973755769273372591781122911269541246998414373164655578537275992672825184689288522172549791839516436266477173284871379488345734346732849281233789122665763161971694899366791377821278351186733922795982443277549225884743342835737519237578365265516459423567638837828126284553676474995517732169974737994937588335612669776145331286846286763617753656928449811747431669448162818641323117748385888766366432789827831963698183346586984698584636197829987792565526523939658765118112417944296373767476845697483488752781429149429519857363512168563691564481563376297528651481628472392195123433628439898341718811949386878293366133868994532748199427641893677914362585441871242734269536241438148186552963936216736165688981775923931844893777542263326195577376659278537157862249355716368394442971155528858112937332273451547817364456539446479163721591873724659879631299357676249433529621122487168857239539258543467813214526673567514953647586696548179962559532334374548533663174455121616813526615278674875896738932365429231353446348484928641518748294987558687628767277331623913833242599554972222855633443112422136921449259119935117867112377898731296583262121381472946611368627241971576111217298642749936688355688547638177749884844973152999692584527527317588869143527318291688775513727939285898911686558457781928283674434996318111465591331826868778899366218857321674662414664611889476549164356511519778635664923421544811679827825829343665225791991123441826341614418785758638665289177755119351133592311921188481472934125663175193359417291282812969986452393448734569537676125841766457553664189898845198856963116276594262735941787367269518297458829764697852229277816446755962694113835288567638281194469127221626566281747465914457994744955674548147252194397651826823565571214964765317631965552278958748447177945831817856621623478498558197342429892456728555965249856492223866256113385754191354198558746264846272479328241681342138358134339336777977574215927293656197473847157523462681271895722766247393519655686161929968951367232419822637512953598728753494826641994585561983783523943757942454211117341885666484197567224887678837125452189792362716817884656481216161719515365165548482438725272396182267428234581527472321965664891796152393279314347695799858294662597914893169679751232666869319879865928198717456231678367927688147414725324357274815454125531514883125491156322311369142186684684366296554717524359536751372478387139811663574219394669219732923697232242493196911913536545266555174585941415746814785969134743444392113891639744793589896356553645411391862815668326341513869255869725767834176477867612986138593879324676582577429297977658192437992654938916846381583251751153485851593183243975749692699334134391181787689666699251583828762112692646214388885171967997189974547235621689694742552765568985214698676577838898876599847692665929285895784635457587137828423399379434341889344248192852657923755347946744766716787195917114736913186448821832833334448946877242649356128674654263121511917336355521767428491171873313586138728529235778532568846665733959442532717872998844795687226362734422486168738737598792843431438472125849441755714333389123218389794132524576157394733931639466812356181577922799692752138977195418484926655987835541847935962171782872568515581771914378813441953398769429178786762916473134185933991555624248239924558246113484284859654792463343767343344874894925147342112779943357591381947656767376199384918384291356631412961339529579979262817292166284937141764452439676694134164441624813696822697162991286245389552758222857933183492261277155979195229148485584716814732921451687818256196625332986115385615725649926332416831814627996227215629654952934612947331464277435432183949386572295379213659986112556863194852955976611432744357667193982683587499318451381873983724576144773946583813625387592711717857657391436249696527168274579381495711191958195659232351153879283587379931928546193197527892557462398451455113552227697261169448689286678125673171439572155924241595216947634238463523546527364971533918399814783454739163898726761947319188439233575876369895528133561371649724745883157365572523561641886868267677798429254425518743639236947651339633884821223385271355673574216898686839366979961577451234817138688713371944796291338323816111332283915494767781938375362118855595571169644536968691293986857461563737144531852722696638862369161338544298244234758322787435823325719653328797413218972525895551355985317713923278339936952737122327556864443678971864499216321925557175726614918197892639625899732823424416742254244434991413615551276444625211887789758869812113766476865123379975592647815237898564564367516352482173354612561773564678993854836852296354729122441469946827216783266125162756868711696956151812717991886193869837377247857168535891846465224562751633652374444397153152349551982293137929386665228755154755571258161996257626715844546422133876128383298647864626271914251729344343347677625586218784316251916419193521528246661784284811182429297276716938167789373877193245182596488412544939933272489677542633639366227859465759697398672563975213263244534611656624972387242832361969856431975794242489572297371382658236293273844658698171133332186518336798258298929652168476227545987224618612145922851255854817411962113697233388119925496265864843715858823393639426681125778199979932537331184151384289317765399885917648183823117267145154178977371511196655129289368813939736923747556546697356448139989923172199136333418827667883892288533266863891916331672175233622885746957576278993864457288626954666717737769495862971953963573323852129786328928973612188979818148639394584589681311489993963958483921877197966148454517716746114723533352882696447642698654652142844474125469923969124469325484418672632154266158486756588956869652365113636814828267124385887493512935978282565973816667913526639839857431468176992453361575117465483361299191692354495962312257314546215859227945774968674669593253733462693774362825913613129837178633782372829246183288612377316439897422771194875612265116773378458746248792762235825427564533767836922232151347784278171651555229241484632365835625146615734294914874382334159637711835182761426437226984348923991919876293323697974439756762519188527762388459744773453119313965286925748693394122938394531593525777211447429897598882677191951354911967977247288416419589777517794121238529621553861153423369413246171584324756652123476744386415412233589911749996788823766913921382147935646593239261358737751965559283859617915889682474251731442799125779142793284533733825625487288472882516675684419717387933225541549297563387299285753965528711674759796219174432637796946342463375217756629168787