ป.ร. ให้ไว้เป็นจำนวนเต็มบวก n เขียนโค้ดบางส่วนที่จะใช้ตัวประกอบนายกและแทนที่ทุกปัจจัยของการมี23
ตัวอย่างเช่น
12 = 2 * 2 * 3 -> 3 * 3 * 3 = 27
นี่คือโค้ดกอล์ฟดังนั้นเป้าหมายคือเพื่อลดจำนวนไบต์ของคำตอบของคุณ
1 -> 1
2 -> 3
3 -> 3
4 -> 9
5 -> 5
6 -> 9
7 -> 7
8 -> 27
9 -> 9
10 -> 15
11 -> 11
12 -> 27
13 -> 13
14 -> 21
15 -> 15
16 -> 81
17 -> 17
18 -> 27
19 -> 19
20 -> 45
21 -> 21
22 -> 33
23 -> 23
24 -> 81
25 -> 25
26 -> 39
27 -> 27
28 -> 63
29 -> 29
คำตอบ:
3/2
Fractran แท้จริงมีเพียงหนึ่ง builtin แต่มันเกิดขึ้นเพื่อทำสิ่งที่งานนี้ขอ (มันเป็นทัวริงที่สมบูรณ์ด้วยตัวมันเอง)
ภาษานั้นไม่มีไวยากรณ์หรือล่ามที่ได้มาตรฐาน ล่ามนี้ (ในความคิดเห็นในบล็อกโพสต์ - เป็นภาษาที่ง่ายมาก) จะยอมรับไวยากรณ์ที่แสดงที่นี่ (มีล่าม Fractran อื่น ๆ ที่มีไวยากรณ์อื่น ๆ เช่นบางคนจะเขียนโปรแกรมนี้เป็น3 2หรือแม้กระทั่งการใช้3และ2เป็นอาร์กิวเมนต์บรรทัดคำสั่งซึ่งจะนำไปสู่คะแนน 0 + 3 ไบต์ฉันสงสัยว่าเป็นไปได้ที่จะทำดีกว่า 3 ใน แม้ว่าล่ามที่มีอยู่แล้ว)
3/2
/ Replace a factor of
2 2
3 with 3
{implicit: repeat until no more replacements are possible}
f=lambda n:n%2*n or 3*f(n/2)หารจำนวนซ้ำด้วย 2 และคูณผลลัพธ์ด้วย 3 ตราบใดที่จำนวนนั้นเป็นเลขคู่ ตัวเลขแปลก ๆ กลับมาเอง
32 ไบต์ alt:
lambda n:n*(n&-n)**0.58496250072ลองมันออนไลน์ มีข้อผิดพลาดลอยบางอย่าง log_2(3)-1คงเป็น
ใช้(n&-n)ในการหาปัจจัยอำนาจของ 2 ที่ยิ่งใหญ่ที่สุดของn, แปลง3**kไปโดยยกมันขึ้นสู่อำนาจของ2**klog_2(3)-1
Ò1~P
Ò Compute the prime factorization of the input.
1~ Perform bitwise OR with 1, making the only even prime (2) odd (3).
P Take the product of the result.
until odd$(*3).(`div`2)
หารด้วยสองแล้วคูณด้วย 3 จนกระทั่งเล่ห์เหลี่ยมแปลก ๆ ใน Haskell
ทางเลือกที่มีแลมบ์ดาแทนฟังก์ชั่น pointfree และมีจำนวนไบต์เท่ากัน:
odd`until`\x->div(x*3)2
แก้ไข: @ ais523 บันทึกไบต์ในเวอร์ชันดั้งเดิมและ @ Ørjan Johansen ในเวอร์ชันอื่นดังนั้นทั้งสองรุ่นจึงมีความยาวเท่ากัน ขอบคุณ!
odd`until`\x->div(x*3)2ได้
$เพื่อแทนที่วงเล็บ: ลองออนไลน์!
()แลมบ์ดารุ่น
f=x=>x%2?x:f(x*1.5)
ในขณะที่อินพุตหารด้วยสองให้คูณด้วย 1.5 ซึ่งเท่ากับหารด้วย 2 และคูณด้วย 3
x*3/2มีจำนวนเดียวกัน
f=ไม่จำเป็นสำหรับ js
f(x*1.5)ว่ามันต้องมีชื่อfด้วยเหตุนี้จึงf=รวมอยู่ด้วย
{{({}[()]<([({})]()<({}{})>)>)}{}([{}]()){{}((({})){}{})<>}<>}<>({}({}){}())
โปรแกรมนี้ทำงานโดยการหารจำนวนด้วยสองและสามเท่าจนกว่าจะได้ส่วนที่เหลือจากการหาร จากนั้นจะหยุดการวนซ้ำและเพิ่มเป็นทวีคูณและเพิ่มหนึ่งในหมายเลขสุดท้าย
ขอบคุณ lanlock4 สำหรับการบันทึก 3 ไบต์!
#//.x_?EvenQ:>3x/2&
ฟังก์ชั่นเพียวที่ทำการทดแทนซ้ำ ๆ ซึ่งเป็นปัจจัยหนึ่งของ 2 ครั้ง ทำงานบนจำนวนเต็มบวกทั้งหมดน้อยกว่า 2 65,537
x_?EvenQทำงานแทนx_/;EvenQ@xหรือไม่
Yf1Z|p
บันทึก 1 ไบต์ขอบคุณการสังเกตอัจฉริยะของเดนนิส
วิธีที่ดีที่สุดในการอธิบายสิ่งนี้คือการแสดงสแต็กที่จุดต่างๆ
Yf % Prime factors
[2 2 2 3]
1Z| % Bitwise OR with 1
[3 3 3 3]
p % Product
81
ทางเลือกอื่น:
Yfto~+p
Yf3H$X>p8 ไบต์
2/S 3
o@i
อลิซมีในตัวเพื่อแทนที่ตัวหารของตัวเลขด้วยอีกตัว ฉันไม่คิดว่าจริง ๆ แล้วฉันจะได้ใช้ประโยชน์จากมันในไม่ช้า ...
โดยใช้จุดรหัสของตัวละครสำหรับ I / O นี้จะกลายเป็น 6 I23SO@ไบต์:
2 Push 2 (irrelevant).
/ Reflect to SE. Switch to Ordinal.
i Read all input as a string.
The IP bounces up and down, hits the bottom right corner and turns around,
bounces down again.
i Try to read more input, but we're at EOF so this pushes an empty string.
/ Reflect to W. Switch to Cardinal.
2 Push 2.
The IP wraps around to the last column.
3 Push 3.
S Implicitly discard the empty string and convert the input string to the integer
value it contains. Then replace the divisor 2 with the divisor 3 in the input.
This works by multiplying the value by 3/2 as long as it's divisible by 2.
/ Reflect to NW. Switch to Ordinal.
Immediately bounce off the top boundary. Move SW.
o Implicitly convert the result to a string and print it.
Bounce off the bottom left corner. Move NE.
/ Reflect to S. Switch to Cardinal.
@ Terminate the program.
Æf3»P
Æf3»P Main Link, argument is z
Æf Prime factors
3» Takes maximum of 3 and the value for each value in the array
P Takes the product of the whole thing
-3 ไบต์ด้วยคำใบ้จาก @Dennis!
*^1.5/PQ2
นับจำนวน 2s ในการแยกตัวประกอบเฉพาะ (/ PQ2) คูณอินพุตด้วย 1.5 ^ (# ของ 2s)
int f(int n){return n%2>0?n:f(n/2*3);}โซลูชัน 43 ไบต์ก่อนหน้า:
int f(int n){for(;n%2<1;)n=n/2*3;return n;}ขนาดกริด 6 (91 ไบต์)
? { 2 . . <
/ = { * = \ "
. & . . . { _ '
. . { . . } ' * 2
_ } { / . } & . ! "
. > % . . < | . . @ |
\ . . \ . | ~ . . 3
. . " . } . " . "
. & . \ = & / 1
\ = { : = } .
[ = { { { <
รุ่นกะทัดรัด
?{2..</={*=\".&...{_'..{..}'*2_}{/.}&.!".>%..<|..@|\..\.|~..3..".}.".".&.\=&/1\={:=}.[={{{<
ขนาดกริด 7 (112 ไบต์)
? { 2 " ' 2 <
/ { * \ / : \ "
. = . = . = | . 3
/ & / { . . } { . "
. > $ } { { } / = . 1
_ . . } . . _ . . & . {
. > % < . . ~ & . . " . |
| . . } - " . ' . @ | {
. . . = & . . * ! . {
. . . _ . . . _ . =
> 1 . . . . . < [
. . . . . . . .
. . . . . . .
รุ่นกะทัดรัด:
?{2"'2</{*\/:\".=.=.=|.3/&/{..}{.".>$}{{}/=.1_..}.._..&.{.>%<..~&..".||..}-".'.@|{...=&..*!.{..._..._.=>1.....<[
Ungolfed Version เพื่อการอ่านที่ดีขึ้น:
เค้าโครงหน่วยความจำโดยประมาณ
เส้นทางสีเทา (การกำหนดค่าเริ่มต้นหน่วยความจำ)
? Read input as integer (Input)
{ Move to memory edge "Divisor left"
2 Set current memory edge to 2
" ' Move to memory edge "Divisor right"
2 Set current memory edge to 2
" Move to memory edge "Multiplier"
3 Set current memory edge to 3
" Move to memory edge "Temp 2"
1 Set current memory edge to 1
{ { { Move to memory edge "Modulo"
= Turn memory pointer around
[ Continue with next instruction pointer
วนรอบรายการ
% Set "Modulo" to Input mod Divisor
< Branch depending on result
กรีนพา ธ (ค่ายังคงหารด้วย 2)
} } { Move to memory edge "Result"
= Turn memory pointer around
* Set "Result" to "Temp 2" times "Multiplier" (3)
{ = & Copy "Result" into "Temp2"
{ { } } = Move to "Temp"
: Set "Temp" to Input / Divisor (2)
{ = & Copy "Temp" back to "Input"
" Move back to "Modulo"
Red Path (ค่าจะไม่หารด้วย 2)
} = & " ~ & ' Drag what's left of "Input" along to "Multiplier"
* Multiply "Multiplier" with "Temp 2"
! @ Output result, exit program
%2และ:2ทั้งสองเข้าไปในส่วน "โมดูโล" (ดังนั้นคุณสามารถกำจัดขอบสองด้านบน) จากนั้นคุณสามารถแนบสาขา "ตัวคูณ" เข้ากับขอบ "โมดูโล" แทนขอบ "ตัวหาร" ดังนั้นคุณจึงต้องการการเคลื่อนไหวน้อยลงหลังจากแต่ละสาขา (คุณอาจหมุนส่วนนั้นเพื่อให้ "ผล" หรือ "อุณหภูมิ 2" สัมผัส "โมดูโล" ซึ่งหมายความว่าคุณจะต้องคัดลอกผลลัพธ์สุดท้ายหนึ่งครั้งก่อนที่จะสามารถคำนวณผลิตภัณฑ์ได้)
~×₂×₃↰|
~×₂×₃↰| original program
?~×₂×₃↰.|?. with implicit input (?) and output (.) added
?~×₂ input "un-multiplied" by 2
×₃ multiplied by 3
↰ recursion
. is the output
| or (in case the above fails, meaning that the input
cannot be "un-multiplied" by 2)
?. the input is the output
(+2&=)&.q:
ลองออนไลน์! ทำงานคล้ายกับด้านล่างก็มีตรรกะที่แตกต่างกันเกี่ยวกับการเปลี่ยนด้วย23
(2&={,&3)"+&.q:
(2&={,&3)"+&.q:
&. "under"; applies the verb on the right, then the left,
then the inverse of the right
q: prime factors
( )"+ apply inside on each factor
,&3 pair with three: [factor, 3]
2&= equality with two: factor == 2
{ list selection: [factor, 3][factor == 2]
gives us 3 for 2 and factor for anything else
&.q: under prime factor
rollที่นี่ :)
เอาต์พุตจำนวนเต็ม \ o /
*F+1.|R1P
*F+1.|R1P
P prime factorization
.|R1 bitwise OR each element with 1
*F+1 product
k ®w3Ã×
k ® w3Ã ×
Uk mZ{Zw3} r*1
U # (input)
k m # for every prime factor
Z{Zw3} # replace it by the maximum of itself and 3
r*1 # output the product
×เป็นทางลัดสำหรับr@X*Y}1(หรือเพียงr*1) ซึ่งอาจมีประโยชน์ นอกจากนี้ยังมีซึ่งเป็นXwY Math.max(X,Y)
k m_w3Ã×เพื่อบันทึกไบต์ นอกจากนี้ยังสามารถลงไปm_ ®
for($a=$argn;!1&$a;)$a*=3/2;echo$a;การเปลี่ยนชื่อ$argnจะช่วยประหยัดไบต์เดียว
rimf1f|:*
ง่ายจริงๆ
คำอธิบาย:
ri e# Read integer: | 28
mf e# Prime factors: | [2 2 7]
1 e# Push 1: | [2 2 7] 1
f| e# Bitwise OR with each: | [3 3 7]
:* e# Product: | 63
?'2{{(\}}>='!:@=$\%<..>)"*
ออก:
? ' 2 {
{ ( \ } }
> = ' ! : @
= $ \ % < . .
> ) " * . .
. . . . .
. . . .
สิ่งนี้จะทำงานโดยทั่วไป:
num = input()
while num%2 == 0:
num = (num/2)*3
print num
ณ จุดนี้เป็นการออกกำลังกายเกี่ยวกับวิธีทรมานฉันจะได้รับเส้นทางลูปเพื่อลดไบต์
k mw3 ×
k mw3 ×
k // Factorize the input.
mw3 // Map each item X by taking max(X, 3).
× // Take the product of the resulting array.
// Implicit: output result of last expression
{⍵(⊣×(3*⊢)×(÷2*⊢))2⍟⍵∨2*⍵}นี่มัน verbose เกินไปฉันต้องทำอะไรผิด ...
จำนวนไบต์ที่ถูกต้องเท่านั้นในคำตอบ
x=gmp::factorize(scan());x[x==2]=3;prod(x)
ค่อนข้างตรงไปตรงมาใช้gmpแพ็คเกจเพื่อแยกตัวประกอบxแทนที่ 2s ด้วย 3s แล้วส่งคืนผลิตภัณฑ์
&>:2%!#v_.@
^*3/2 <
& - take in input and add it to the stack
> - move right
: - duplicate the top of the stack
2 - add two to the stack
% - pop 2 and the input off the stack and put input%2 on the stack
! - logical not the top of the stack
# - jump over the next command
_ - horizontal if, if the top of the stack is 0 (i.e. input%2 was non zero) go
right, else go left
If Zero:
. - output the top of the stack
@ - end code
If Not Zero:
v - move down
< - move left
2 - add 2 the top of the stack
/ - pop top two, add var/2 to the stack
3 - add 3 to stack
* - pop top two, add var*3 to the stack
^ - move up
> - move right (and start to loop)
w⌠i1|ⁿ⌡Mπ
คำอธิบาย:
w⌠i1|ⁿ⌡Mπ
w factor into [prime, exponent] pairs
⌠i1|ⁿ⌡M for each pair:
i flatten
1| prime | 1 (bitwise OR)
ⁿ raise to exponent
π product