趣味题

wayne

还望能给出这个题的一个Haskell程序， 我好学习学习

无心人

Haskell是描述算法最清晰的语言之一 相对它而言，传统的C/C++程序就不太干净了， 总有些和你算法无关的东西要掺杂在里面

〇〇

如果把问题数据量放大 2个4位16进制数相加=第3个4位16进制数,允许值0123-fedc?怎么快速求解,我用oracle的sql要43多分钟

无心人

用haskell写个程序解这个我会，但是写个好程序就要仔细考虑下了，俺先想想

无心人

import List d9 = [1..9] v a b c = 100 * a + 10 * b + c digit n i = mod (div n (10^i)) 10 isRight n l = ((n <= 987) && (null \$ intersect l [digit n 0, digit n 1, digit n 2]) && ((digit n 0) /= (digit n 1)) && ((digit n 1) /= (digit n 2)) && ((digit n 2) /= (digit n 0))) result = [(x, y, x + y)|a<-[1..4], b<-d9\\[a], c<-d9\\[a, b], let x = v a b c, d<-[a+1..9-a]\\[b, c], e<-d9\\[a, b, c, d], f<-d9\\[a, b, c, d, e], let y = v d e f, isRight (x + y) [a, b, c, d, e, f, 0]] main = do print \$ zip [1..] result

无心人

[(1,(234,657,891)),(2,(234,658,892)),(3,(236,457,693)),(4,(236,458,694)),(5,(237 ,456,693)),(6,(237,458,695)),(7,(237,654,891)),(8,(237,658,895)),(9,(238,456,694 )),(10,(238,457,695)),(11,(238,654,892)),(12,(238,657,895)),(13,(245,687,932)),( 14,(246,587,833)),(15,(247,586,833)),(16,(247,685,932)),(17,(254,637,891)),(18,( 254,638,892)),(19,(254,678,932)),(20,(256,437,693)),(21,(256,438,694)),(22,(256, 478,734)),(23,(257,389,646)),(24,(257,436,693)),(25,(257,438,695)),(26,(257,634, 891)),(27,(257,638,895)),(28,(258,436,694)),(29,(258,437,695)),(30,(258,476,734) ),(31,(258,634,892)),(32,(258,637,895)),(33,(258,674,932)),(34,(259,387,646)),(3 5,(274,658,932)),(36,(276,458,734)),(37,(278,456,734)),(38,(278,654,932)),(39,(2 85,647,932)),(40,(286,547,833)),(41,(287,359,646)),(42,(287,546,833)),(43,(287,6 45,932)),(44,(289,357,646)),(45,(324,567,891)),(46,(324,568,892)),(47,(325,467,7 92)),(48,(325,468,793)),(49,(325,648,973)),(50,(326,548,874)),(51,(327,465,792)) ,(52,(327,468,795)),(53,(327,564,891)),(54,(327,568,895)),(55,(327,659,986)),(56 ,(328,465,793)),(57,(328,467,795)),(58,(328,546,874)),(59,(328,564,892)),(60,(32 8,567,895)),(61,(328,645,973)),(62,(329,657,986)),(63,(345,628,973)),(64,(346,52 8,874)),(65,(348,526,874)),(66,(348,625,973)),(67,(357,629,986)),(68,(359,627,98 6)),(69,(364,527,891)),(70,(364,528,892)),(71,(365,427,792)),(72,(365,428,793)), (73,(367,425,792)),(74,(367,428,795)),(75,(367,524,891)),(76,(367,528,895)),(77, (368,425,793)),(78,(368,427,795)),(79,(368,524,892)),(80,(368,527,895))]

无心人

少了a=1的解，不知道为什么

无心人

好了 15#程序修改好了，少了个括号 结果如下 [(1,(124,659,783)),(2,(125,739,864)),(3,(127,359,486)),(4,(127,368,495)),(5,(128 ,367,495)),(6,(128,439,567)),(7,(129,357,486)),(8,(129,438,567)),(9,(129,654,783 )),(10,(129,735,864)),(11,(134,658,792)),(12,(135,729,864)),(13,(138,429,567)),( 14,(138,654,792)),(15,(139,428,567)),(16,(139,725,864)),(17,(142,596,738)),(18,( 142,695,837)),(19,(143,586,729)),(20,(145,692,837)),(21,(146,583,729)),(22,(146, 592,738)),(23,(152,487,639)),(24,(152,784,936)),(25,(154,629,783)),(26,(154,638, 792)),(27,(154,782,936)),(28,(157,329,486)),(29,(157,482,639)),(30,(158,634,792) ),(31,(159,327,486)),(32,(159,624,783)),(33,(162,387,549)),(34,(162,783,945)),(3 5,(163,782,945)),(36,(167,328,495)),(37,(167,382,549)),(38,(168,327,495)),(39,(1 73,286,459)),(40,(173,295,468)),(41,(175,293,468)),(42,(176,283,459)),(43,(182,3 67,549)),(44,(182,394,576)),(45,(182,457,639)),(46,(182,493,675)),(47,(182,754,9 36)),(48,(182,763,945)),(49,(183,276,459)),(50,(183,492,675)),(51,(183,546,729)) ,(52,(183,762,945)),(53,(184,392,576)),(54,(184,752,936)),(55,(186,273,459)),(56 ,(186,543,729)),(57,(187,362,549)),(58,(187,452,639)),(59,(192,384,576)),(60,(19 2,483,675)),(61,(192,546,738)),(62,(192,645,837)),(63,(193,275,468)),(64,(193,48 2,675)),(65,(194,382,576)),(66,(195,273,468)),(67,(195,642,837)),(68,(196,542,73 8)),(69,(214,569,783)),(70,(214,659,873)),(71,(215,478,693)),(72,(215,748,963)), (73,(216,378,594)),(74,(216,738,954)),(75,(218,349,567)),(76,(218,376,594)),(77, (218,439,657)),(78,(218,475,693)),(79,(218,736,954)),(80,(218,745,963)),(81,(219 ,348,567)),(82,(219,438,657)),(83,(219,564,783)),(84,(219,654,873)),(85,(234,657 ,891)),(86,(235,746,981)),(87,(236,718,954)),(88,(236,745,981)),(89,(237,654,891 )),(90,(238,419,657)),(91,(238,716,954)),(92,(239,418,657)),(93,(241,596,837)),( 94,(243,576,819)),(95,(243,675,918)),(96,(245,673,918)),(97,(245,718,963)),(98,( 245,736,981)),(99,(246,573,819)),(100,(246,591,837)),(101,(246,735,981)),(102,(2 48,319,567)),(103,(248,715,963)),(104,(249,318,567)),(105,(251,397,648)),(106,(2 54,619,873)),(107,(254,637,891)),(108,(257,391,648)),(109,(257,634,891)),(110,(2 59,614,873)),(111,(264,519,783)),(112,(269,514,783)),(113,(271,593,864)),(114,(2 71,683,954)),(115,(273,546,819)),(116,(273,591,864)),(117,(273,645,918)),(118,(2 73,681,954)),(119,(275,418,693)),(120,(275,643,918)),(121,(276,318,594)),(122,(2 76,543,819)),(123,(278,316,594)),(124,(278,415,693)),(125,(281,394,675)),(126,(2 81,673,954)),(127,(283,671,954)),(128,(284,391,675)),(129,(291,357,648)),(130,(2 91,384,675)),(131,(291,546,837)),(132,(291,573,864)),(133,(293,571,864)),(134,(2 94,381,675)),(135,(296,541,837)),(136,(297,351,648)),(137,(314,658,972)),(138,(3 17,529,846)),(139,(317,628,945)),(140,(318,627,945)),(141,(318,654,972)),(142,(3 19,527,846)),(143,(324,567,891)),(144,(324,657,981)),(145,(327,519,846)),(146,(3 27,564,891)),(147,(327,618,945)),(148,(327,654,981)),(149,(328,617,945)),(150,(3 29,517,846)),(151,(341,586,927)),(152,(342,576,918)),(153,(346,572,918)),(154,(3 46,581,927)),(155,(352,467,819)),(156,(354,618,972)),(157,(354,627,981)),(158,(3 57,462,819)),(159,(357,624,981)),(160,(358,614,972)),(161,(362,457,819)),(162,(3 64,527,891)),(163,(367,452,819)),(164,(367,524,891)),(165,(372,546,918)),(166,(3 76,542,918)),(167,(381,546,927)),(168,(386,541,927))]

无心人

15# isRight函数 还可以改为下面，感觉比较清晰，比较简洁 isRight n l = ((n < 1000) && (length (nub ([digit n 0, digit n 1, digit n 2] ++ l)) == 10))

〇〇

如果把问题数据量放大 2个4位16进制数相加=第3个4位16进制数,允许数字为123456789cba,怎么快速求解?