Rosetta Code

Home primes: Difference between revisions

Page Discussion

Home primes (view source)

Revision as of 01:48, 25 May 2021

11 bytes removed ,  3 years ago
→‎{{header|Factor}}: update for changed task requirements
(→‎{{header|Factor}}: update for changed task requirements)
Line 58:
: chain ( n -- seq ) [ (chain) ] { } make ;
 
: chainprime. ( n -- ) dup "HP%d = %d\n" printf ;
 
chain [ last ] [ ] bi unclip "HP%d = " printf
: setup ( seq -- n s r ) unclip-last swap dup length 1 [a,b] ;
[ 1 + "HP%d(%d) = " printf ] each-index . ;▼
 
▲: multi. ( n [-- 1) +chain setup [ "HP%d(%d) = " printf ] each-index2each . ;
 
: chain. ( n -- ) dup prime? [ prime. ] [ multi. ] if ;
 
2 20 [a,b] [ chain. ] each</lang>
Line 67 ⟶ 71:
HP2 = 2
HP3 = 3
HP4(2) = HP22(1) = HP211(2) = 211
HP5 = 5
HP6 = HP23(1) = 23
HP7 = 7
HP8(13) = HP222(112) = HP2337(211) = HP31941(310) = HP33371313(49) = HP311123771(58) = HP7149317941(67) = HP22931219729(76) = HP112084656339(85) = HP3347911118189(94) = HP11613496501723(103) = HP97130517917327(112) = HP531832651281459(12) = HP3331113965338635107(131) = 3331113965338635107
HP9(2) = HP33(1) = HP311(2) = 311
HP10(4) = HP25(13) = HP55(2) = HP511(3) = HP773(41) = 773
HP11 = 11
HP12 = HP223(1) = 223
HP13 = 13
HP14(5) = HP27(14) = HP333(23) = HP3337(32) = HP4771(4) = HP13367(51) = 13367
HP15(4) = HP35(13) = HP57(2) = HP319(3) = HP1129(41) = 1129
HP16(4) = HP2222(13) = HP211101(2) = HP3116397(3) = HP31636373(41) = 31636373
HP17 = 17
HP18 = HP233(1) = 233
HP19 = 19
HP20(15) = HP225(114) = HP3355(213) = HP51161(312) = HP114651(411) = HP3312739(510) = HP17194867(69) = HP194122073(78) = HP709273797(87) = HP39713717791(96) = HP113610337981(105) = HP733914786213(114) = HP3333723311815403(123) = HP131723655857429041(132) = HP772688237874641409(14) = HP3318308475676071413(151) = 3318308475676071413
</pre>
 
Chunes
1,808

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/312324"